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Instalación 


( TTÍ) Descargar R 

R es un lenguaje de programaeión dedieado al análisis estadistieo y que esta 
disponible en múltiples sistemas operativos eomo son Windows, maeOS, Linux y 
hay un desarrollo para android pero que a la aetualidad aún no es ofieial. Dado el 
easo de ser un lenguaje de programaeión, la eomunidad ha deeidido ineluir en su 
instalador una interfaz llamada “R Commander” que es el estándar pero que a 
su vez esta pensado ejeeutarse en todo tipos de eomputadoras sin restrieeión de 
requisitos! proeesador, memoria ram y otros). Debido a su gran fama grupos de 
desarrolladores han ereado IDE’S (entorno de desarrollo integrado) eon el fin de 
que programar en R sea más seneillo y elaro que hay otros que se han enfoeado en 
GUI (interfaz gráfiea de usuario) eentrándose en la ereaeión de menús interaetivos 
similares a IBM SPSS. Dentro de los mas eonoeidos nos eneontramos eon: 

Rstudio IDE muy reeomendado por la eomunidad de R pero que para su funeio- 
namiento requiere un proeesador dual eore eomo mínimo. 

R AnalyticFlow Con un tanto de GUI, eomo requisito prineipal es tener instalado 
Java JDK. Usa diagrama de flujos o nodos, lo que le haee muy eonveniente 
euando se trata de pronóstieos y predieeiones donde se neeesita repetir el 
mismo proeeso varias veees. 

RKWard También eon un tanto de GUI y es otra alternativa a Rstudio. 

Jamovi, BlueSky Statistics.JASP, GUI muy interaetivo para aquellos quienes 
solo busean resultados en poeos pasos. 


1 







2 


CAPITULO 1. INSTALACION 




(iiAii 

) Windows 


La descarga de R se encuentra en varios Países me¬ 
diante la red de servidores eran, comúnmente llamado 
espejos eran donde almacenan las versiones y docu¬ 
mentaciones del software, recuerde que cada servidor 
o espejo eran es distinto en cuanto a velocidad de des¬ 
carga. 



Para descargar el programa R ingrese a su pagina 
oficial 


https://cran.r-project.org/bin/windows/base/ y ha 


ga clic en la versión recomendada. 


R-4.0.G for Windows (32/64 bit) 


Download R 4.0.0 for Windows VB4 mesabvtes. 32/(i4 bitl 


Versión Recomendada 


Installation and other instructions 

New features in this versión 


Versión Actual Parcheada 


If you want to double-check thai the package you have downloaded matches the package distributed by^RAN, you can compare the mdSsum of the .exe to the 
finger print on the master server. You will need a versión of mdSsum for Windows; both gra phical anrf rommand line versions are available. 


Frequently asked ques^ons 


Does R mn under my versión of Windows? 

How do I update packa g es in m y previous versión of R? 
Should I run 32-bit or 64-bit R? 


Versión en Desarrollo 


Please see the R FAQ for general information about R and the R Windows/fAQ for Windows-specific information. 

Other builds 

Patches to this release are incorporated in the r- patched snapshot build . 

A build of the development versión (which will eventually become the next major release of R) is available in the r-devel snapshot build . 
Previous raleases 


Note to webmasters; A siable link which will redirect to the current Windows binary release is 
<CRAN MlRROR>/bin/windows/basc/rcleasc.htm . 


Las otras dos opciones solo son únicamente para probar como va el desarrollo 
de R, si usted esta en proyectos grandes y no quiere tener errores de software 
entonces solo use la versión recomendada por la comunidad. Una vez descargado 
ejecute y haga lo siguiente: “elija las opciones y de en el botón siguiente” 
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Definir Lenguaje 


X 



Select the language to use during the 
installaton. 


Español 


V 


A, 

Frangais 

Italiano 

Nederlands 

Norsk 




Aceptar licencia 

instalar - R for Windows 4.0.0 

n 

Información 

Es importante que lea la siguiente información antes de contirxjar. 



Cuando esté listo para continuar con la instalación, haga de en Siguiente. 


GNU GENBUM PUBLIC LIC0JSE 
Versión 2, June 1991 

Copyright (C) 1989, 1991 Free Software Fourxlatíon, Inc. 

51 FranldinSt,FifthFloor, Boston, MA 02110-1301 USA 
Everyone is permitted to copy and distribute veti>atim copies 
of this kcense document, but char>gír^ it is not alowed. 

Preamble 

Ihie bcenses fix rrtost software are designed to take away your 
ffeedom to share arHd char>ge ít By contrast, the GNU Ger>eral Pubk 
Ucense is intended to guarantee your freedorn to share arxJ change free 
software~to make sure the software is free for al its users. This 
General Public License appües to most of the Free Software 


I Siguiente > | | Cancelar | 


Crear Carpeta en el Menú de Inicio 


0 


Instalar - R for Windows 4.0.0 


SeleccKMie la Carpeta dd Menú Inicio 

¿Dónde deben colocarse los accesos drectos del programa? 



El programa de instaladón creará los accesos directos del programa en la 
siguiente carpeta del Menú Inicio. 


Para continuar, haga de en Siguiente. Si desea seleccíor>ar ur^ carpeta distinta, haga 
dic en Examinar. 

|R i Examinar... 


I [ No crear una carpeta en el Menú Inido 


< Atrás Siguiente > Cancelar 


Seleccionar Arquitectura 



0 


Usar configuración estándar 


Instalar - R for Windows 4.0.0 


Crear acceso directo en escritorio 

^ Instalar - R for Windows 4.0.0 ” ° 


Opciones de conBguración 

Desea utizar las opciones de configuración ? 


SeleoiDne las Tareas Adicionales 
¿Qué tareas adkior^s deben realzarse? 


Por favor, espedfíque si o no y luego haga ck en Siguiente. 

Os 

® No 


< Atrás Psiguiente > | Cancelar 


Seleccione las tareas adiciorídles que desea que se realcen duróte la insteladón de R 
for Wítkíows 4.0.0 y haga ck en Siguiente. 

Accesos directos adkxx^ales; 

0 Crear un acceso directo en el esaitorlo 
Q Crear un acceso directo en Inicio Rápido 
Registro de entradas: 

0 Guarde el número de versión en el registro 
0 Asedar arcNvos .ROata con R 


< Atrás 


[^iguiei 


Cancelar 
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CAPITULO 1. INSTALACION 


2.1.2 Mac 

La última versión de R unieamente se pueden instalar si euentas eon maeOS 
10.13(Sierra) y versión superior, Si dispones de versiones de maeOS inferiores 
instala las versiones inferiores de R. 

Si posees maeOS 10.13, ingrese en esta uri direetamente a la desearga: 

https://cran.r-project.org/bin/macosx/base/ 

O si tienes una versión de maeOS inferior ingrese a: 

https://cran.r-project.org/bin/macosx/ 

y elija la versión que más se adapta a la versión de su maeOS. 

( 3 . 1 . 3 ) Distribuciones Linux I 

Las distribueiones en linux que aeeptan la instalaeión de R-Projeet son de¬ 
bían,redhat,suse, ubuntu 

https://cran.r-project.org/bin/linux/ 


Debían 


Si es la primera vez que instala un software en debian y no 
posee una elave loeal “NO_PUBKEY”, proeure haeer los siguientes 
pasos. 

Paso 1: Abra eonsola o terminal y eseribe 


sudo nano /etc/apt/sources.list 


Eso permitirá abrir el fiehero y agregamos lo siguiente 


deb http://deb.debian.org/debian/ stretch main contrib 
deb-src http://deb.debian.org/debian/ stretch main contrib 
deb http://cloud.r-project.org/bin/linux/debian buster-cran40/ 



Estos enlaees servirán para aetualizar los eomponentes base de debian y la 
última es eseeneial para R. Una vez terminado presione [ctrl| +[ O | y |^| para guardar 
los eambios. Aetualizamos los repositorios 


'-^ 

sudo apt-get update 

- - - 


Paso 2: Crear elave publiea si es que aún no la tienes, en el segundo 
comando requiere de sus datos, al terminar(la última pregunta), usa [~v] para 
finalizar y escribe una contraseña para terminar de crear la key. 
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sudo apt-get install gnupg 
gpg --full-generate-key 


Paso 3 Final: escribe este comando en consola y espera a que termine 
la instalación 


sudo apt-get install r-base 


RedHat 


La instalación en Redhat solo requiere de pocos comandos 
como 


í - 

yum 

update 


yum 

install 

epel-release 

yum 

iL - 

install 

R 


El primer comando sirve para actualizar los paquetes, el se¬ 
gundo es un complemento importante para el tercer comando 
que es el paquete R. 



Opensuse 

La instalación de R se hace a través de su YaST2 ingresando 
en 

Main menú -> System -> YaST -> Software -> 

Software Management 

ejecutas y escribes R-base en su buscador y seleccionas el 
resultado “R-base” o “R-base-devel”. Finalmente le das clic en el 
botón Accept y esperas a que empiece la descarga y la instalación. 



Ubuntu 

Hay dos formas de instalar en ubuntu el software R, una 
de ellas es mediante ubuntu Software y la otra depende de la 
consola. 


sudo apt-get update 

sudo apt-get install r-base 


Si te genera algún error al instalar, es posible que se deba 
a dependencias del software o a la versión misma del software 
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CAPÍTULO 1. INSTALACIÓN 


“bionic,xeniaI y focal”, puede que este eomando solueione tu problema. 


sudo apt-get install aptitude 
sudo aptitude install r-base 


(2.2) Descargar IDE 



Importante 

f 

Primero debes descargar el software R que ineluye el compi- 

• 

lador del lenguaje. Después instala el IDE que mejor sea de tu 


agrado 


Como lo mencione al inicio, los IDE’S recomendados por la comunidad son 
“Rstudio, R AnalyticFIow y RKWard”. Cada uno de ellos en sitio web ofrecen la 
desearga para distintas plataformas. 

También hay eomplementos para editores de eódigo eomo: 

Visual Studio Code R Tools 

Atom Rbox 

Achitect 

Jupyter 

Vim Nvim-R 

(3.3) Softwares Externos 

Los reportes Markdown a PDF o KT^Xen Sweave requieren de su propio eompi- 
lador y es de vital importaneia instalar para después no tener errores al eompilar 
un reporte. 

El que recomiendo instalar es MiKTeX porque su instalación es limpia sin 
paquetes a difereneia de Tex Live. Ingrese a esta uri para deseargar la versión re- 
eiente “https://miktex.org/download”, una vez deseargado(aprox 235mb) iniee 
la instalaeión ejeeutando este arehivo. 

Manual Instalaeión https://miktex.org/howto/install-miktex 
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3. SOFTWARES EXTERNOS 


Nos toca agregar la carpeta a la variable de entorno, esto es muy importante. 
Trate de ubicar el directorio donde se ha instalado MiKTeX, por ejemplo: 

C:\Program Files\MiKTeX 2.9\miktex\bin\x64 

Presione desde Windows las teclas (T^+p^ y escriba 

%windir%\System32 \rundí132.exe sysdm.cpl,EdltEnvlronmentVariables 

Esto abrirá una pequeña ventana , enfoquese en Path y haga clic en el botón 
Editar. Al final de ese textbox agrega el directorio 

; C:\Program Elles\MlKTeX 2.9\mlktex\bln\x64\; 

Figura 1.1: Variable de Entorno Windows 
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CAPÍTULO 1. INSTALACIÓN 


Los errores eomunes en Rmarkdown eomo es el easo de la siguiente imagen 

1.2 


Figura 1.2: Errores de Paquetes faltantes en Rmarkdown y Sweave 


Consolé R Markdown g Q 

.../md/repoftaRmd 

output file: reporte.knit.md 

! Sorry, but C:\PR0GRA~l\MIKTEX~1.9\fniktex\bin\;;54\pdf latex.exe did not succeed. 

! The log file hopefully contains the Information to get MiKTeX going again: 

I 

! C: \Users\ \AppData\Local\MiKTeX\2.9\iiiktex\log\pdf látex. log 

Error: LaTeX failed to compile reporte.tex. See https://yihui.Org/tinytex/r/#debugging -Tor deb 
ugging tips. See reporte.log for more info. 

Execution halted 


Requieren de eiertos paquetes para compilar el documento, había dicho que 
Miktex no trae consigo todos los paquetes preinstalados (son alrededor de 6gb), 
entonces usted desde su computadora ejecute el programa MiKTeX Consolé . 


Para Rmarkdown: 

✓ parskip 

✓ xurl 

✓ csquotes 

✓ footnotehyper 

✓ biblatex 
Para Knitr o 

✓ microt)q)e 

✓ h)q)erref 

✓ layout [para testear dimensiones de página) 

✓ amsmath, amssymb, amsfonts, latexsym, cancel, wasys)mi 

✓ array, textcomp, bbding, enumitem 

✓ ulem, wrapfig, float,pdflscape,tabu, floatrow, subfig 

✓ longtable,booktabs,multirow,multicol, threeparttable,threeparttablex 
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Ejecutar en modo Administrador 



Fik Tasks Help 


Welcomei 

Th5 is MKTeX Consde. ItwlassEt younmanagfigyourMKreXciinñgiratioo. 
If youwant, you car startMth ar onine tutcnal: - . • * 


Op^ation nKxIe 


y 


•» Switch to MiKTeX administrator mode 

Restart MilCTeX Consolé with elevated pmnieges and switch to UDCTeX administrator mode. 
Usethis option, Ifyou wantto opérate oo the shared (5ystem*wide] MiKTeX configuratÍDn. 


Stay in MiKTeX user mode 

Continué to woric with MiKTeX Cortsole in UiKTeX user mode. 

Usethis option, ifyou wantto opérate oryour prívate MiKTeX configuration. 




Otedi fór updates 




Seleccionar paquete y clic en “+” 



Columna Packages, escribir paquete 



Clic en Ok 

® MiKTeX Consolé 



Your MiKTeX installation will now be updated: 

1 package(s) will be installed 
0 paclcage(s) will be removed 


OK 


Cancel 
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Objetos en R 



(l.l) Creando y asignando valores 

Para asignar valores a objetos se usa estos símbolos: 

< - 


Como cualquier otro lenguaje de programación, existe ciertas reglas al crear 
variables u objetos por ejemplo en el lenguaje R al usar la palabra “variable” con 
“Variable” son distintas así que se considera como otro objeto. El uso de números 
como nombre del objeto esta prohibido por ejemplo “12datos,9mos”, por favor 
tome nota. 



variable^ <- c( ) 



contenido 

o 

elementos 


en se crea un objeto con ele¬ 
mentos numéricos. 

en muestra otra forma de 
crear el objeto. 
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CAPITULO 2. OBJETOS EN R 


Claro que al nombrar usted puede toparse eon nombres de funeiones internas 
como “sd, var, cor, arima, pf y entre otros”, si le ha sucedido entonces se habrá 
dado cuenta que el objeto creado funciona con normalidad pero ello reemplaza 
a la función y para retornar a su normalidad solo use rm(nombre_objeto). A 
continuación se presentará algunos casos en donde genera error al nombrar 
objetos. 


Cuadro 2.1: Nombres de Objetos 


OBJETOS 

%/ Validos X Inválidos 


datos 

<- c() 

%datos 

<- c 0 

datos 98 

<- c 0 

datos% 

<-c() 

datos_l 

<- c 0 

98datos 

<- c 0 

a.datos 

<- c 0 

_datos 

<- c 0 



.datos 

<- c 0 


^ No es específicamente un error(.), 
sino que no se puede crear el objeto 
por falta de referencia. 


( 1 , 1 , 1 ^ Tipos de datos 

En R hay distintos tipos de datos que usted puede crear y dentro de los más 
conocidos están los siguientes: 


Cuadro 2.2: Tipo de dato en R 


Valores 

Tipo 1 

a < - 14 

numérico 

a < - FALSE 

booleano 

a < - “b” 

carácter 

a < - 6L 

entero “usar L al final" 

a < - l+6i 

complejo 


Para tratar de saber que tipo de objeto es el que se ha creado, se usará las 
siguientes funciones: 
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Cuadro 2.3: Veriñcar el objeto 


Función 

Especificación 

class() 

typeof() 

length() 
attributes () 

niode() 

Categoriza en forma general el objeto y también sirve para 
interpolar ^ 

Determina el tipo interno del objeto, ejem “NULL,double y 
otros" 

Retorna la longitud de datos en un objeto 

Sirve para verificar si el objeto tiene algún metadato,objeto 
complejo 

Similar a typeof pero su clasificación es distinta 


^ Específicamente puede hacer que class (x) <- c ( "ob j " ), agrega un 
atributo. 


> a <- c(FALSE,2,3,5.2) 

> class (a) 

[ 1 ] "numeric" 

> typeof (a) 

[ 1 ] "double" 

> length (a) 

[1] 4 

> attributes (a) 

[ 1 ] NULL 

> mode (a) 

[ 1 ] "numeric" 
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CAPITULO 2. OBJETOS EN R 


2.1.2 Clases de objeto 

Si se quiere erear un objeto eon diferentes tipos de datos “eomo se muestra 
en la tabla 2.2”, o si son en gran eantidad eomo por ejemplo big data. Entonees 
obligatoriamente se tiene que trabajar eon una elase que mejor se adapta a 
nuestras neeesidades, a eontinuaeión se muestra las elases más usadas: 

Cuadro 2.4: Funciones para crear clase de objetos 


Clase 

Especificación I 

vectorQ 

Crea un veetor numérieo. 

factorQ 

Usado para eodifiear un veetor en eategorías o 
esealas. 

listo 

Crea una lista de datos por separado. 

matrixO 

Crea una matriznxm- 

rawO 

Crea un veetor erudo que almaeena longitudes 
fijas de bytes. 

data.frameQ ^ 

Aeepta todo tipo de datos y es muy usado. 


En “vector{mode=" ", length=}” erea un veetor de datos definido por un 
modo y un tamaño, reeuerda que solo genera elementos repetitivos eomo por 
ejemplo: vector {mode="numeric" , length=10} generará dies veees eero. A eon¬ 
tinuaeión algunos modos que son aeeptados: 

mode “list, numerie, logieal, eharaeter,eomplex, raw” 

length aeepta valores numérieos, ejemplo: 10 


> vector (mode="complex" , length=10) 

[1] O+Oi O+Oi O+Oi O+Oi O+Oi O+Oi O+Oi O+Oi O+Oi O+Oi 


^esta clase es muy usado con knitr para crear tablas tipo APA con la librería kable, para saber 
su funcionamiento escribir en consola lo siguiente ?data.frame , intentar con las otras clases lo 
mismo 


?clase , cambiar clase por “vector,factor,list y otros” 
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Creando un Objeto factor 


factor(x ,levels ,labels .ordered ) 

X 

(objeto) Neeesita un veetor de datos eu- 
yos valores eoineidan eon levels. 

levels 

(numerie) Los niveles o eseala de datos. 

labels 

(string o numérieo) La etiquetas a la 
eseala (levels) 

ordered 

(booleano) Permite ordenar los levels. 



A continuación se mostrará un ejemplo sobre eomo 
funeiona: 


> etiqueta <- c("Nada Satisfecho" , "Poco Satisfecho", 

"Satisfecho","Muy Satisfecho") 

> db <- c(3, 4, 2, 1, 4, 2, 3, 4, 2, 1, 4 ,2, 

1, 4, 1, 1, 1, 4, 1, 4, 1, 1, 1, 4, 

1, 3, 1, 1, 3, 4, 4, 3, 4, 3, 4, 1) 

> liker <- factor (x = db ,levels = c(l:4), 

labels = etiqueta ) 


Ahora si se quiere ver eomo almaeena esta elase factor: 


> liker 




[1] 

Satisfecho Muy Satisfecho 

Poco 

Satisfecho 

Nada 


Satisfecho 




[5] 

Muy Satisfecho Poco Satisfecho 

Satisfecho 

Muy 


Satisfecho 




[29] 

Satisfecho Muy Satisfecho 

Muy 

Satisfecho 

Satisfecho 

[33] 

Muy Satisfecho Satisfecho 

Muy 

Satisfecho 

Nada 


Satisfecho 




Levels: Nada Satisfecho Poco Satisfecho Satisfecho Muy 


Satisfecho 




Con un toque estadístieo: 
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CAPÍTULO 2. OBJETOS EN R 


> summary (liker) 

# 

--> cantidad 

L 

■1 


Nada Satisfecho 

Poco 

Satisfecho 

Satisfecho 

Muy 

Satisfecho 

14 


4 

6 


12 


> prop.table ( summary. 

factor (liker) 

) # proporción 


Nada Satisfecho 

Poco 

Satisfecho 

Satisfecho 

muy 

satisfecho 

0.3888889 

0 

.1111111 

0.1666667 


0.3333333 


Errores comunes al crear un factor 


Error en levels 


> liker <- factor (x 

= 11 ,levels = c(l:3) 

,labels = 

etiqueta ) 



Error in factor (x = 

11, levels = c(l:3). 

labels = 

etiqueta) : 



invalid 'labels'; 

length 4 should be 1 

or 3 


Error en labels 


> etiqueta <- 

cC'Nada Satisfecho" , "Poco Satisfecho" , "Satisfecho" ^ 

> liker <- factor(x = 11 ,levels = c (1 : 4) ,labels = 

etiqueta ) 

Error in factor(x = 11, levels = c(l:4), labels = 
etiqueta) : 

invalid 'labels'; length 3 should be 1 or 4 


En indica que las escalas (1 a 4) de levels debe ser igual a labels . Lo 
mismo sucede en en (2 ) pero con labels. 
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Creando un Objeto matrix 


matrix(data 

,nrow ,ncol ,byrow, dimnames ) 

data 

(vector) Necesita un vector de da¬ 
tos cuyos valores coincidan con le¬ 
véis. 

nrow 

(numeric) Numero de filas(n) que 
tiene el vector de datos 

ncol 

(numeric) Numero de columnas(m) 
que tiene el vector de datos 

byrow 

(booleano) Se rellena por filas so¬ 
lo si es TRUE, caso contrario es 
columnas. 

dimnames 

(list) Agrega nombre a filas y 
columnas, esto depende de 
la longitud de ncol y nrow. 


dimnames= list (c (" filas ");• c ( 


aii 

3i2 

3i3 ■ ■ ■ 

3in 

321 

322 

323 ■ ■ ■ 

32n 

331 

332 

333 

33n 

341 

342 

343 

34n 

asi 

352 

353 

35n 

361 

362 

363 

36n 

a?! 

372 

373 

37n 

381 

382 

383 

38n 

391 

392 

393 

39n 

ami 

3m2 

3m3 

3mn 


Dato importante: el numero de columnas (ncol) y filas (nrow) deben 

SER SUBMÚLTIPLO DE LA LONGITUD DE TODOS LOS ELEMENTOS, EN CASO DE NO 
SERLO TE GENERARÁ UNA ADVERTENCIA. 


> mt 

> mt 

<- matrix (data= 

[,1] [,2] [,3] 

1:16, nrow = 4, ncol = 4) 

[,4] 

[1, ] 

1 

5 

9 

13 

[2, ] 

2 

6 

10 

14 

[3, ] 

3 

7 

11 

15 

[4, ] 

4 

8 

12 

16 


Por cierto si la longitud en filas (nrow) y eolumnas (neol) superan la eantidad 
de elementos que son 16, por ejemplo 


ncol = 2, nrow = 9 (9*2 = 18) 


> mt <- matrix ( data = 1:16, nrow = 9, ncol = 2) 


entonces generará una advertencia 
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CAPITULO 2. OBJETOS EN R 


Warning message: 

In matrix(data = 1:16, nrow = 9, ncol = 2) : 

la longitud de los datos [16] no es un 
submúltiplo o múltiplo del número de filas 
[9] en la matriz 


y llenará esa difereneia repitiendo los elementos inieiales eomo es el easo 
siguiente: 



Ahora se observará como funciona el argumento byrow que significa 

¿DESEA ORDENAR LOS DATOS POR FILA? 



> mt 

<- matrix ( 


> mt 

<- matrix ( 



data= 1 

:9, 


data= 1: 

9, 


nrow = 

3, 


nrow=3. 



ncol = 

3, 


ncol= 3, 



byrow = 

F) 


byrow=T) 


> mt 

[,1] [,2] 

[,3] 

> mt 

[,1] [,2] [ 

,3] 

[1, ] 

1 4 

7 

[1, ] 

1 2 

3 

[2, ] 

2 5 

8 

[2, ] 

4 5 

6 

[3, ] 

3 6 

9 

[3, ] 

7 8 

9 
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Se intentará ahora dar nombre a filas y columnas. Se debe entender 

QUE EL TAMAÑO DE FILAS DEPENDE DE NROW Y EL TAMAÑO DE COLUMNAS DE 
NCOL 

Tomaremos como ejemplo una matrizsx 2 


> mt <- matrix(c (1 : 6) , nrow=3, ncol=2) 


dimnames = list(fíla, columna) 

# - 

> dimnames (mt) <- list ( 

c ("fl","f2", "f3") , 

c("cl","c2") ) 

# - 

> mt 

el c2 

fl 1 4 

f2 2 5 

f3 3 6 


rownames y colnames 

# - 

> rownames (mt) <- c("fl","f2", 

"f3") 

> colnames (mt) <- c("cl","c2") 

# - 

> mt 

el e2 

fl 1 4 

f2 2 5 
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CAPITULO 2. OBJETOS EN R 


Creando un Objeto data.frame 


data.frame(... .row.names) 

(objeto) Agregar los objetos oreados an¬ 
teriormente. 

Proporeionar eual eolumna será tomada 

row.names ^ 

eomo nombres para filas. 

Nota: Los tres puntos signifiea argumentos 

El data.frame aeepta todo tipo de elementos eomo son los 
objetos tipo matrtx, faetor y veetor, pero el únieo ineonveniente 
es que la longitud de las filas de eada objeto deben ser iguales 



length(xl) = length(x2) = length(x3) = nrow(b) 


#- 




# 


vector 


> 

xl 

= c (letters [1 : 8; 

) 

> 

x2 

<- c (1 : 8) 


# 

Factor 


> 

x3 

<- factor (x = c 

(4,2,4,1,2,1,4,4) , levels = c(l:4). 



labels = c 

("Nada Satisfecho" , "Poco Satisfecho", 




"Satisfecho" , "Muy Satisfecho") ) 

# 


Matrix 


> 

b 

<- matrix(data = 

c(l:16),nrow = 8,ncol = 2) 


20 

















1. CREANDO Y ASIGNANDO VALORES 


21 


recuerda que b <- matrixO 


tiene dos columnas. 


row.names = columna l("lb") 

#- 

> tb <- data.frame ( "lb"= xl, 

"a" = x2, 
"b" = x3, 

"c"= b, 

row. names=l ) 

> tb # usar View(tb) 



a 


b 

c. 1 

c. 2 

a 

1 

Muy 

Satisfecho 

1 

9 

b 

2 

Poco 

Satisfecho 

2 

10 

c 

3 

Muy 

Satisfecho 

3 

11 

d 

4 

Nada 

Satisfecho 

4 

12 

e 

5 

Poco 

Satisfecho 

5 

13 

f 

6 

Nada 

Satisfecho 

6 

14 

g 

7 

Muy 

Satisfecho 

7 

15 


row.names = columna 5("c") 

> tb <- data.frame ( "Ib" = xl, 

"a" = x2, 
"b" = x3, 
"c"= b, 
row. names=5) 

> tb # usar View(tb) 



ib 

a 


b 

c. 1 

9 

a 

1 

Muy 

Satisfecho 

1 

10 

b 

2 

Poco 

Satisfecho 

2 

11 

c 

3 

Muy 

Satisfecho 

3 

12 

d 

4 

Nada 

Satisfecho 

4 

13 

e 

5 

Poco 

Satisfecho 

5 

14 

f 

6 

Nada 

Satisfecho 

6 

15 

g 

7 

Muy 

Satisfecho 

7 


21 












22 


CAPITULO 2. OBJETOS EN R 




es un caso muy conocido tratándose de la coma al final, se entiende que la 
coma separa cada argumento de uno nuevo y si no hay uno nuevo entonces 
este error te generara. 



se trata del tamaño de las filas de cada objeto, como se observa en el primer 
objeto hay “length (xl ) = 6” y el otro objeto existe “length (x2 ) = 8” significan¬ 
do distintas filas. Es muy importante que en data.frame se tenga los objetos 
con la misma longitud de filas. 


“Uso de library(tidyverse) ” 

O Instale este paquete install .packages ("tidyverse" ) y 
usar tibble () en vez de data.frame 
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Creando un Objeto list 


(objeto) Significa que acepta n objetos 
de distintas clases (matrix, data.trame 
y otros como funciones) con sus respec¬ 
tivos nombres. 


Almacena los objetos en listas independientes, lo 
de bueno de list es que permite agregar clases de 
objeto como matrix, vector, data.trame, raw y hasta es posible funciones con 
fórmulas “summary”. Además no es importante que dichos objetos tengan la 
misma longitud en filas y columnas ya que de igual forma serán incluidas. 

Por ejemplo: 

Se tratará de crear objetos de distintos tipos de clases, como son “vectores, 
factor, data.trame y matrix” 


#- - 

> xl = c (letters [1 : 8] ) 

> x2 <- c (1 : 8) 

# Factor 

> x3 <- factor(x = c (4,2,4,1,2,1,4,4) , levels = c(l:4), 

labels = cC'Nada Satisf echo" , "Poco Satisfecho", 
"Satisfecho", "Muy Satisfecho") ) 

# data.fr ame 

> tb <- data.frame ( "lb"= xl, "a" = x2) 

# matrix 

> mt <- matrix (data= 1:9, nrow=3, ncol= 3, byrow=T) 



Una vez creado los objetos “observa el último argumento que es una función”. 
Entonces para combinar todo en una lista se tiene que hacer lo siguiente: 


> lista <- list (x2,x3,tb, mt, summary (x3)) 


Dado que se trata de una lista con múltiples objetos incrustados, entonces 
únicamente se puede ver a través de consola escribiendo lo siguiente: 
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#- 

> lista 

#- 

[ [1] ] 

[1] 

1 2 

3 4 5 6 7 8 




[ [2] ] 

[1] 

Muy 

Satisfecho Poco 

Satisfecho Muy 

Satisfecho 

Nada 


Satisfecho 




[5] 

Poco 

Satisfecho Nada 

Satisfecho Muy 

Satisfecho 

Muy 


Satisfecho 




4 Levels 

: Nada Satisfecho 

Poco Satisfecho ... Muy 

Satisfecho 

[ [3] ] 

Ib 

a 





1 a 

1 





2 b 

2 





3 c 

3 





4 d 

4 





5 e 

5 





6 f 

6 





7 g 

7 





8 h 

8 





[ [4] ] 


[, 

1] [,2] [,3] 




[1, ] 


12 3 




[2, ] 


4 5 6 




[3, ] 


7 8 9 




[ [5] ] 

Nada 

Satisfecho Poco Satisfecho Satisfecho Muy 

Satisfecho 


2 

2 

0 


4 


Observa el easo “[[5]]” de summary(x3) que también puede ser ineluido dentro 
de la clase listo. 


24 








1. CREANDO Y ASIGNANDO VALORES 


25 


3.1.3} Ordenar datos 


Los datos en R se ordenan usando el eomando sort() 

> datos <- c(5,6,3,4,l) 

> ordenado <- sort (datos] 

> ordenado 

[1] 1 3 4 5 6 


4.1.4 Valores aleatorios 


Hay muehas funeiones que generan valores y que estos pueden retornar datos 
ordenados eomo también aleatorios pero dentro de los más usados tenemos estas 
funeiones: 


Cuadro 2.5: Funciones para crear valores 


1 Función 

¿9ue hace? I 

e(l:n) 

Crea una lista de números ordenados que empie¬ 
zan desde 1 hasta n. 

seq(from, to, by) 

Genera números desde, hasta y por cuanto au¬ 
menta. 

rep(x,n) 

Repite el dato(no objeto) x n veces Nota: n es 

un valor numérico 

sequence(nvee) 

Genera una secuencia de números muy parecidos 
a un triángulo. 

runif(n, min, max) 

Genera números aleatorios con un límite de nú¬ 
meros “n” que se encuentran entre un mínimo y 
máximo. 

saniple(x, size, replaee) 

Genera números aleatorios de un objeto x pero 
esta vez cuenta con la opción de hacer que no se 
repita el mismo número. 


> vi <- c (1 : 5) 

> vi 

[1] 1 2 3 4 5 

#- 
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> v2 <- seq(l,10,2) 

> v2 

[1] 1 3 5 7 9 
#- 

> v3 <- rep (letters [2] , 5) 

> v3 

[1] "b" "b" "b" "b" "b" 

# - 

# - 

> tmp <- c(4,2) 

> v4 <- sequence (tmp) 

> v4 

[1] 1 2 3 4 1 2 

#- 

# - 

> v5 <- runif(6,l,5) 

> v5 

[1] 1.766615 2.726120 1.646968 1.148724 3.180554 2.160788 

# - 

#- 

> v6 <- sample (1 : 20,5, replace = T) 

> v6 

[1] 14 12 5 17 1 
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(2.2) Modificar 

En las secciones anteriores se ha visto como se crea el objeto y que elementos 
son permitidos para esa clase de objeto. Las siguientes secciones se hablará sobre 
la edición o modificación de los elementos del objeto, para ello se ha divido en dos 
secciones que consta las dimensiones de los objetos. 

(1.2.1} índice para objetos de una dimensión 

Para poder modificar datos de un objeto es necesario conocer el índice o el 
orden como es que R los almacena 

objeto <- c( 5, 4 , 7, 8 , 12, 3 ) 

mili 

!1 2 3 4 5 

índice 

Comenzando por el primer elemento que es 5 su índice sera I, el elemento 4 su 
índice 2 y así sucesivamente para los otros elementos. En R se usa dos corchetes 
que dentro de ello se coloca el índice [índice]. 



Para modificar el valor solamente se agrega el símbolo “< —” o el “=” y después 
el valor nuevo 


> 

datos[ 1 ] = 

12 

> 

datos [3] = 

21 

> 

datos 


[: 

L] 12 4 21 

8 12 3 
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CAPITULO 2. OBJETOS EN R 


Si lo que desea es modifiear múltiples datos entonees use c(n)^ , donde n 
perteneee a los indiees a eambiar. Claro que tiene que ser de la misma longitud 
“ndndiees y n: valores nuevos”. 


> datos [c 

(1,3) ] 

= c 

(3,5) 

> datos 

[1] 3 4 

5 8 

12 

3 

> datos [c 

(2,4,5) 

] = 

c (22,24,14) 

[1] 3 22 

5 24 

14 

3 


^esto es un vector de datos por ejemplo c(l,2,3,4) no confundir con la función vectorQ 
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2 .2.2 índice para objetos de dos dimensiones 


Para ubicar un dato en especifico de una matriz o un data.trame, se entiende 
que las filas (n) son todos los datos en forma horizontal y las columnas (m) son 
todos los datos en vertical, si usamos (n) y (m) entonces apunta hacia un dato 
específico, por ejemplo: 


> mat 



Se va a tratar de sacar todos los datos en forma diagonal, por favor prestar 
atención a los indices. 


> mat [ 1 , 1 ] 

[ 1 ] 1 

> mat [ 2 , 2 ] #fila 2 y columna 2 

[ 1 ] 1 

> mat [3,3] 

[ 1 ] 1 


Para cambiar datos solamente se necesita usar “< — ”, es muy parecido al 
proceso que se hizo anteriormente. 
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> mat [1, 1 ; 

<- 4 


> mat [2,2; 

<- 3 


> mat [3,3; 

IT) 

1 

V 


> mat 



[,1] 

, 2 ] [, 3 ; 


[1, ] 4 

0 

0 

[2, ] 0 

3 

0 

[3, ] 0 

0 

5 


(3.2.3} Modificar un data.frame y vectores 


Un dataframe no es nada mas que un euadro de datos que permite almaeenar 
diferentes tipos de datos, aquí hago presente algunas funeiones que nos faeilitan 
el trabajo. 


Cuadro 2.6: Funciones que permiten agregar objetos al data.frame 


Función 

Especifícación I 

ebind (df, nuevo) 

Agrega eolumnas al data.frame Nota: tener el mis¬ 
mo tamaño de ñlas(n). 

rbind (df, nuevo) 

Agrega filas al data.frame Nota: tener el mismo 

tamaño de eolumnas (m). 

retorna la longitud de datos en un objeto 

attributesO 

sirve para verificar si el objeto tiene algún meta- 
dato, objeto complejo 

edit(objeto) 

Una forma visual de modificar datos Nota: Es un 
editor de datos 
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> el <- c(2,2,2,2) 

> fl <- c(l,l,12 ) 

# - 

> tb <- data.frame ( "x"= sample (20 : 60, 4, replace = F), 

"y"= round(runif (4, min = 10,max = 20),2] 

# - 


# 


Agregar columna 


> 

tb 

< 

- cbind(tb,cl) 

> 

tb 





X 

y 

el 

1 

54 

12.57 

2 

2 

27 

12.72 

2 

3 

48 

13.89 

2 

4 

40 

10.42 

2 

#- 





# 


Agregar 

fila 

> 

tb 

< 

- rbind(tb,fl) 

> 

tb 





X 

Y 

el 

1 

54 

12.57 

2 

2 

27 

12.72 

2 

3 

48 

13.89 

2 

4 

40 

10.42 

2 

5 

1 


1.00 

12 


Ver atributos de la tabla 


#- 

# 

> attributes (tb) 

$ñames 

[1] "x" "y" "el" 

$row.ñames 

[1] 1 2 3 4 5 

$class 

[1] "data.frame" 


# solo usa attributes(tb)$names 


# solo usa attributes(tb)$row.ñames 


# solo usa attributes(tb)$class 


Si lo que se busea es dar una manipulaeión mas avanzada en una elase 
data.frame, entonees debes instalar la siguiente librería que sera de mueha 
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CAPITULO 2. OBJETOS EN R 


importancia. 

> install.packages { "data.table" ) 


> library (data.table) 


^Nota: Se necesita internet para la instalación del paquete ^ 


Se intentará crear una tabla mixta con el objetivo de tomarlo como referencia. 


> el <- rep (2,15) 

> fl <- c(l, 1, "nada") 

> f <- factor (x = 

sample (1:4,15, replace=T), 
levels = c (1 : 4) , 
labels = cC'nada", 

"poco","medio","alto") ) 

> tb <- data.frame( 

"x"= sample (20 : 60, 

15, replace = F) , 

"y"= runif(15,min = 

10, max = 20) , 

"f"= f ) 

> tb <- cbind(tb,cl) 

> tb <- rbind(tb,fl) 

#- 

Convertir a data.table 

> tabla <- as.data.table (tb) 


X 

y 

f 

el 

29 

12.39 

poco 

2 

37 

11.84 

medio 

2 

31 

15.61 

medio 

2 

20 

17.31 

poco 

2 

38 

10.3 

medio 

2 

43 

17.89 

poco 

2 

47 

11.65 

nada 

2 

25 

19.98 

poco 

2 

46 

19.86 

medio 

2 

51 

16.61 

poco 

2 

44 

12.7 

poco 

2 

52 

10.33 

alto 

2 

53 

16.16 

alto 

2 

34 

14.56 

poco 

2 

48 

15.53 

nada 

2 

1 

1.00 

nada 

1 


Nota: En la colum¬ 
na “y” se ha usado 

round(runif( ),2) 


tabla[í, j, by] 

Donde: 

i filas [primer argumento) 

j columnas [segundo argumento) 
by agrupado por [tercer argumento) 
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Extraer datos por filas 


Para extraer determinadas filas, en el 
primer argumento [l:n,] agregar valores 
numérieos. 


> 

tabla [1:4, 

] 


X y 

f el 

1 

29 12.39 

poco 2 

2 

37 11.84 

medio 2 

3 

31 15.61 

medio 2 

4 

20 17.31 

poco 2 


También puedes usar una eondieional 
para restringir los elementos que desea 
ver [a < n\ donde “a” es el nombre de 
la columna. 


> 

tabla [y<ll , ] 



X y f 

el 

1 

38 10.30 medio 

2 

2 

52 10.33 alto 

2 

3 

1 1.00 nada 

1 


Si se busea un elemento en espeeífieo 


Extraer datos por columnas 

Para solo ver algunas eolumnas se ne- 
eesita ya sea sus nombres eomo (x y f) o 
el número (1 y 3). 


> tabla 

[, c{l,3)] 

> tabla 

[, . (x, f) ] 

X 

f 

1: 29 

poco 

16: 1 

nada 


entonees debe usar%like%, o si es el ea- 
so de eneontrar elementos que se eneuen- 
tran entre a y b, usar %between %. 


> 

tabla [x%like%29 

] 


X 


Y 

f 

el 

1 

29 

12 

39 

poco 

2 

> 

tabla[y%between 

%c (11,12) ] 


X 


y 

f 

el 

1 

37 

11 

84 

medio 

2 

2 

47 

11 

65 

nada 

2 


Hay una funeión que permite extraer 
valores únieos de la tabla por ejemplo la 
eolumna “f’, usar “unique (tabla, by) 


> 

unique (x=tabla. 

by=c ("f") ) 


X y f 

el 

1 

29 12.39 poco 

2 

2 

37 11.84 medio 

2 

3 

47 11.65 nada 

2 

4 

52 10.33 alto 

2 


La funeión que permite ordenar eolum¬ 
nas es “setorder(tabla,-a,b)” por (-,+) es 
(deseendente, aseendente). 


> 

setorder 

(X 

= tabla, X, y ) 

> 

tabla 






X 


y 

f 

el 

1 

: 1 

1. 

00 

nada 

1 

2 

: 20 

17. 

31 

poco 

2 

3 

: 25 

19. 

98 

poco 

2 

16 

: 53 

16. 

16 

alto 

2 
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CAPITULO 2. OBJETOS EN R 


Para mas información visite su repositorio en github 

https://github.com/Rdatatable/data.table 

(3.3) Eliminar 

(1.3.1) Objeto 

Si se tiene un objeto similar “variable” y se quiere eliminar por eompleto 
del sistema con el objetivo de redueir espacio en memoria entonces seria muy 
oportuno usar la funeión rm() elaro que para eliminar múltiples objetos entonees 
usar eoma. 


> nn(variable) 

> variable 

Error: objeto 'variable' no encontrado 
># -> eliminar múltiples objetos <- 

> nn(a, b, c, mat, df) 

> exists ( "a" ); exists ( "b" ); exists ( "c" ); exists { "mat" ); exists { "df " ) 
[ 1 ] FALSE 

[ 1 ] FALSE 
[ 1 ] FALSE 
[ 1 ] FALSE 
[ 1 ] FALSE 


(2.3.2} Un elemento o columna 


En el tema de modifiear se bahía usado un índiee para ver un dato en espeeifieo 
y bueno en este apartado usaremos el mismo método pero anteponiendo a eada 
índiee un signo negativo indieando la eliminaeión de dieho dato, por ejemplo: 


> a <- c (1 : 4) 

> a <- a [-3] # [-n] 

> a 

[1] 12 4 

> #eliminar múltiple 

> a <- a[ -c(l,2) ] #-c() 

> a 

[1] 4 


Importante: Usar -n para retirar 
valor con referencia al índice y en 
cuanto a -c() , el signo menos eon- 
vierte a todos los datos dentro del 
paréntesis a negativo signifieando lo 
mismo 


c(-l.-2) 


Cuando solo se eseribe únieamente 
a[-3] imprime en eonsola los cam¬ 
bios pero no los almaeena y por ello 
el uso de a < —. 
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Data.frame 


Es bueno recordar que esta acción no es posible en dataframe: 

I Nota: no se puede eliminar un dato en específico de una 
columna dado que las dimensiones serían distintas. 


Pero lo que se puede hacer es eliminar filas completas y columnas, preste 
atención a este código 


> dt = data.frame( 

"hl"=c (runif (5,40,64) ), 

"h2 "=c (sample (2 : 25, size = 5] 


> dt[-c(l,4),] # eliminar n = -1, -4 

hl h2 

2 53.59845 18 

3 46.13610 16 
5 55.03759 19 

> dt <- dt[-c(l,4),] # almacenar en dt 


hi 


h2 


|1 50.43018 

15| 

2 53.59845 

18 

3 46.13610 

16 

|4 61.00323 

ll| 

5 55.03759 

19 


Para seleccionar una columna se necesita usar el símbolo por ejemplo 
nombre$columna le decimos que sea igual a una acción llamada “NULL”. 

X 


> dt$hl <- NULL 



hi 

h2 

2 

53.59845 

18 

3 

46.13610 

16 

5 

55.03759 

19 
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CAPITULO 2. OBJETOS EN R 
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Repetidores y Condicionales 


(l.l) Repetidor 

(l.l.l) For 

El repetidor For erea un eielo de elementos de un objeto estableeido for (va¬ 
riable in obj). El in indiea de que objeto (obj) se extraerá los elementos y los 
almaeena en variable. 



Datos a tener eneuenta: 

✓ No neeesariamente debe llamarse i por ejemplo: salida,tmp y otros. 

✓ El objeto a repetir debe tener una longitud mínima de un dato e(dato). 

✓ Es importante que este entre paréntesis “()”. 

Para obtener eada elemento de una matriz o un data.trame entonees se usará un 
doble buele For 

> dt = data. f rame ("x"=c (sample ( 1 : 15, size =5)), 

"y"=c (sample (2 : 25, size =5)), 
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CAPITULO 3. REPETIDORES Y CONDICIONALES 


"z" = sample (30 : 65, size = 5), 
row.ñames =c ( "a" , "b" , "c" , "d" , "e" ) ) 


#-El— por columna 
> for (i in l:ncol(dt)){ 

for (j in l:nrow(dt)){ 
print (dt[j,i]) 

} 

} 


#-£3— por nombres fila 


#-0--todos 

> for (i in rownames (dt) ) { 


> for (i in dt){ 

print ( i ) 


print (Ib) 

} 


} 


por fila 

> for (i in l:nrow(dt)){ 
for (j in l:ncol{dt)){ 
print (dt[i,j]) 

} 

} 


Tips en código 


En 


neol(dt) = dim(dt) 

2 

y también 

nrow(dt) = dim(dt)[l] 


por si quieres evitar el 1 : entonees aquí tienes una alternativa 


l:nrow(dt) = seq_len(dim(dt)[l]) 


:i 2 3! 


1 

2 

3 

4 

5 



X 

y 

z 

a 

6 

18 

63 

b 

9 

14 

58 

c 

13 

5 

45 

d 

8 

13 

43 

e 

11 

11 

46 


:i 2 3! 


ES el primer for genera números de 1 hasta m eolumnas y el segundo for genera 
desde 1 hasta n filas: 
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i 



[3 el primer for genera números de 1 hasta n filas y el segundo for genera desde 
1 hasta m columnas: 

i 



H Aquí solamente extrae los nombres por filas y seguramente ya los conoces. 

KTl En esta parte el for extrae todos los elementos del objeto dt, no confundir con 
los otros que solamente generan el índice. Es importante aclarar que genera 
una longitud > 1 y no es posible usar if en ello. 
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CAPITULO 3. REPETIDORES Y CONDICIONALES 


(2.1.2) While 



La función while es un repetidor eon una eondieión que mientras sea eierta 
entonees se ejeeutará todo el pedazo de eódigo que se eneuentre dentro, por 
ejemplo tengo un objeto 

> obj <- c(l:10) 

después ereo un while eon la eondieión mientras obj sea menor de 10 entonees 
se ejeeutará el otro eódigo donde imprima “hola mundo”, ten euidado eon este 
tipo de eondieiones que haee repetieiones infinitas dado a que siempre retornara 

un TRUE 


> a = 1 

> while (a < 8) { 

print ( paste ( "hola" , a, sep = "->") ) 

a = a+1 

} 


Retornará “hola— >i” donde ¿e{l, • • ■ 7}, así que se repetirá siete veees por el 
motivo de la eondieión. 
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(3.1.3} Repeat 

Es un repetidor sin eondieiones, así que se tiene que eoloear una eondieión 
para que finalize y se usará un break para que finalize repeat{ }, a tener mueho 
euidado al usar esta funeión 



La funeión repeat erea un eielo ilimitado de repetieiones y solamente parará si 
se eontrola eon una eondieión. 

El easo del objeto “re” solo nos sirve eomo eontador y por defeeto el valor 
prineipal es “0”, dentro de la funeión repeat observe que “re” se suma el valor 
aetual del mismo eon una unidad, o sea (0+1,1+2,3+!,...). En la eondieión ha sido 
eoloeado un valor máximo de 10 repetieiones que “re” puede tomar. 
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CAPITULO 3. REPETIDORES Y CONDICIONALES 


(2.2) Condicional 

Antes de empezar, usted debe eonoeer los operadores lógieos en su totalidad 
y para ello se ha preparado las siguientes tablas donde indiean euales son los 
símbolos y eomo funeionan 


Cuadro 3.1: Símbolos usados para comprobar elementos 


1 Operador lógico 

¿Que hace? I 

¡ 

Niega a toda la falaeia (!p == q) retornando un 
valor lógieo eontrario. 

& 

El “and” retorna valores lógieos para eada ele¬ 
mento eondieionado. ^ 

&& 

Solamente retorna un solo valor lógieo, es True 
euando solo ambos elementos lo son 

1 

El “or” retornar valores lógieos por eada elemento 

II 

Solamente retorna un solo valor lógieo y es FALSE 
euando ambos elementos se eontradieen. 


Figura 3.1: Función con varios operadores lógicos 


for (i in a){ 
for (j in b){ 

if( 

} 

} 

} 




){ 


Cuadro 3.2: Operadores Lógieos 


p q 

& 

1 

xor(p,q) 

TRUE TRUE 

TRUE 

TRUE 

FALSE 

TRUE FALSE 

FALSE 

TRUE 

TRUE 

FALSE TRUE 

FALSE 

TRUE 

TRUE 

FALSE FALSE 

FALSE 

FALSE 

FALSE 


^por ejemplo a = c(l:8) y uso la siguiente eondieión 


a>2 & a<8 


esto retorna oeho valo¬ 


res lógieos. Pero si hago lo siguiente a>2 && a<8, entonees retorna un solo valor lógieo. 
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Cuadro 3.3: Símbolos usados para comprobar o relacionar elementos 


Símbolo 

¿Que hace? 

a[i] == b[j] 
a[i] <= b[j] 
a[i] >= b[j] 
a[i] != bUl 
a[i] %in % b 

sirve para verificar si a es igual que b 
verifica si a es menor 0 igual que b 
verifica si a es mayor 0 igual que b 
verifica si a es diferente de b 

verifica si el elemento a[i] se encuentra en el objeto b 


Cuadro 3.4: Veriñear y Convertir 

Verificar 

Convertir 

is. vector(x,mode) 

as. vector (x,mode) 

is.factor(x) 

as. factor (x) 

is.list(x) 

as.Iist(x) 

is.matrix(x) 

as.matrLx(x) 

is.raw(x) 

as.raw(x) 

is. data.frame(x) 

as.data.frame(x, row.names) 

is.na(x) 


is.nan(x) 


is.logical(x) 

as.IogicaI(x) 

is.numeric.Date(x) 

as .Date. character(x) 


('1.2.1 ) if 

En esta sección la sentencia “if’ cuestiona si se ejecuta o no una parte del 
código que esta dentro de llaves “{ ■ ■ ■ }” sin embargo en el lenguaje R nos ofrece 
dos formas de usar la sentencia if. 

Modo Reducido 

Contamos con una función sencilla llamada 

ifelse(comprobar,retornal,retorna2) 

en comprobar se tendrá que colocar el (objeto más la condición) que se desea 
verificar y si esto es verdad(TRUE ) entonces retorna 1 caso contrario retorna2. 
Por ejemplo: 

> a = c (runif (5,40,64) ) 

[1] 60.36799 52.96228 48.25127 42.66303 44.14928 

> ifelse (a>45, "si" , "no" ) 

[1] "si" "si" "si" "no" "no" 
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CAPITULO 3. REPETIDORES Y CONDICIONALES 


Comprobar si hay números pares 


> a = round (runif (5, 2, 10) , 0) 

> a 

[1] 10 5 9 5 5 

> b = c (2, 4, 6, 8) 

> c = c(l,3,5,7) 

> ifelse (a%%2==0, b, c) 

[1] 2 3 5 7 1 


En primero uso la función round(objeto,redondear) para redondear valo¬ 
res por el motivo que runnif genera valores con decimales. 

En verifico si cada elemento de a es par y uso un módulo (% %2== 0) que 
se encarga de ello. 


Si quieres que sea mas eficiente con respecto a velocidad de procesado, enton¬ 
ces usa lo siguiente: 

> dplyr:: if_else (condición,si,no, missing=3) 

Funciona igual que el otro con la diferencia que en si y no tiene que ser el mismo 
tipo de datos y la misma longitud. En missing hace referencia a valores nulos (NA) 
y permite cambiarlos por otros valores como es el caso de 3 (no compara). 

> require (dplyr) 

> a = c (10,5,9,5, NA) # n=5 

> b = c (2, 4, 6, 8, 10) # n=5 —> numeric 

> c = c(l,3,5,7,9) # n=5 —> numeric 

> dplyr:: if_else (a%%2==0, b,c, missing=ll) 

[1] 2 3 5 7 11 

Modo Completo 

Es probable que sea el más usado en programación ya que permite agregar 
código dentro del paréntesis y esto es muy bueno por el motivo que separa entre 
cual se ejecuta y cual no. El if en español “si”se entiende como: Si el objeto 
es menor que 8, entonces se ejecuta print e imprime “trozo de código a”, caso 
contrario pasa a ejecutarse print e imprime “trozo b”. 

> if (objeto < 8) { 

# si es TRUE 

print ("trozo de código a") 
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}else{ 

#si es FALSE 

print ("trozo de código b") 

} 



Dato Importante 


Por si genera un error eomo esto: 

the eondition has length > 1 and oniy the first element will be used 
Reeuerda que el eondieional if solo eompara un elemento por objeto por ejem¬ 
plo df[elemento] == 2. Si deseas múltiples resultados y sin un for entonces 

usa ifelse 
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CAPITULO 3. REPETIDORES Y CONDICIONALES 


(2.2,2j~ Switch 

switch(expresion, case 1, case 2, case 3...,default) 


Figura 3.2: Diagrama de ñujo switch 



defauit 


bloque de codigo 

{ ••• i" 



Cuando usted se encuentra en un mercado y observa que hay n marcas del 
mismo producto que desea y por lo general ofrecen el mismo resultado pero usted 
quiere una marca en especifico, entonces se acerca al vendedor para preguntar 
por dicha marca. 


El funcionamiento de switch es lo mismo por el motivo de que los casos (case 
n) con el cual se compara ya están dadas y solamente se esperaría escribir con 
que elemento (expresión u objeto) se desearía encontrar una igualdad. 
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printC'no disponible") 

) 


En es una entrada de datos que manualmente usted tiene que eseribir, 
puede reeibir error si haee un mal uso de esta funeión. 

En se eonoee eomo default indieando que si las demás no se eumple 
entonees ésta se ejeeuta. 


Nota importante 


No puedes eondieionar objetos que tenga n elementos (superior a un elemen¬ 
to), es posible que eneuentres este error: 

Error in switch(ñames (dt), x = print ( "cierto" )) : 

%EXPR must be a length 1 vector 

No puedes terminar en eoma euando estés en el ultimo ease, este error te 
generará: 

Error: duplícate 'switch' defaults: 'printC'no ...' and '' 

por ejemplo en el esta linea no termina en coma y no te va a generar 
error. 
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CAPITULO 3. REPETIDORES Y CONDICIONALES 


(3.2.3) Which 


which(x, arr.ind, useNames) 


X 

Es el objeto eon el operador lógieo. 

arr.ind 

Si es TRUE entonees el objeto es una matriz easo 
eontrario un veetor eomún. 

useNames 

Si el objeto es una matriz, entonees al haeer use- 
Names=TRUE muestra los nombre de filas, easo 
eontrario mostrará números. 



Esta función solo retorna el índiee del elemento que se eneuentran en dieha 
eondieión y esta dada dentro del paréntesis which(condición). Dieho esto whieh 
signifiea cual y en español seria por ejemplo: ¿eual elemento del obj es igual a 3? 
whieh(obj==3). 
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Se interpreta eomo mat[l,3] = 0 y esto demuestra ser menor que 2. 

mat[row,col] 
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Atrapando Errores 


En muchas ocasiones usted al intentar ejeeutar una funeión o un seript se ha 
topado direetamente eon muehos errores y que en euestión le han imposibilitado 
ejeeutar eorreetamente todo el eódigo, pero por suerte easi en su gran mayoría de 
los paquetes siempre tienen esta funeión y es de vital importaneia saber eomo es 
su funeionamiento y en que nos puede benefieiar. 


1.1 try 


Signifiea “intentar” y ofreee solo una opeión que es “silent" siendo un booleano. 
Esto permite omitir los mensajes que pueden aparecer si la expresión escrita 
"■ ■ ■ "genera algún tipo de alerta. 

try ( ... , silent=TRUE) 

Por ejemplo si tengo un veetor de datos y a esto quiero sumarlo eon un earáeter 
de la siguiente manera: 


> mat <- c(l,4,2,6,4) 

> try (mat+"a" , silent=FALSE) 

Error in mat + "a" : argumento no-numérico para operador 
^ binario 
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CAPITULO 4. ATRAPANDO ERRORES 


Obtenemos un mensaje, entonees si aplieo silent=TRUE : 


> try (mat+"a" , silent=TRUE) 

> 


Omite el error y eontinua eon la siguiente linea. 

Le resultaría muy útil al tratar de omitir mensajes al haeer operaeiones seneillas 
eomo por ejemplo: saear la inversa de matriees, multipliear matriees y entre otros. 


2.2 tryCatch 

La palabra tryCateh haee refereneia a intentar ejeeutar el bloque de eódigo y si 
tiene error, lo eaptura y nos devolverá según se halla programado: 

y bueno he aquí la pregunta. 

¿Cuantos niveles hay? 

Según la funeión tryCateh eonsidera dos tipos de niveles de errores 

warning (leve) El tipo de mensaje que aparece como alarma pero en si hay un 
funcionamiento (retorna valores), por ejemplo al crear una matriz con numero 
total de elementos no son submúltiplos entre números de columnas. 

error (grave) En este nivel el comando o función no llega a ejecutarse(no retorna 
valores) y pasa a ser anulado por el mismo R. 


tryCatch ( 

expr = { 

# Operaciones... 

# aquí... 

}, 

error = function(e){ 

# si hay error 

# ejecutar aquí 

}, 

warning = function(w){ 

# si hay alarmas 
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# ejecutar aquí 

}, 

finally = { 

# (Opcional) 

# se ejecutará como final 

} 

) 


Tenemos aqui un ejemplo práetieo. 
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CAPITULO 4. ATRAPANDO ERRORES 


> matrices <- function (matriz_l,matriz_2){ 

tryCatch ( 

expr = { 

matriz_l %*% matriz_2 

}, 

error = function (e){ 

message ( ' - error de dimensión - \n') 

print (e) 

}, 

warning = function (w){ 

message ( '-alarma- \n') 

print (w) 

}, 

finally = { 

message ( '-final- ') 

} 


} 

#= 


> a <- matrix(data 


c (2, 3, 6, 

3,8,7),nrow = 3,ncol = 3) 


> b <- matrix(data = c(2,3,6,3, 

8 , 7 , 4 , 6 ) , nrow 


2 , ncol 


> # - 

> matrices (matriz_l = a,matriz_2 
- error de dimensión - 


= b) 

O 


4) 


<simpleError in matriz_l 
compatibles> 

- final - 


%*% matriz_2: 

© 


argumentos no 


Primeramente es un error y es por eso que en imprime “message”, después 
pasa a fínally imprimiendo también “message”. 

Si el error hubiera sido leve, pasaría a ejecutarse “warning”. 
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Funciones en R 


( T.T ) Funciones sin argumentos 


Son las funciones sencillas de crear ya que no requieren de objetos exter¬ 
nos (argumentos) para funcionar correctamente, por ejemplo este es la estructura 
de una función simple: 


> clase <- function(){ 
# codigo —> 

} 


La palabra clase es el nombre la función, debes tener cuidado al nombrar ya 
que por casualidad puedes toparte con nombres de funciones internas y esto crea 
una función temporal que reemplazará por el creado (cierra el programa o elimina 
la función con rm(nombre_funcion) y volverá a la normalidad). Como son en gran 
cantidad las funciones internas no se los nombrará pero si los más importantes 
“if, try,for, View,rm”. 
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CAPITULO 5. FUNCIONES EN R 


Dato Importante 


Este es el orden para poder usar una funeión eorreetamente: 

1) Crear funeión “nombre_función = function(){ }” 

2) Llamar > nombre_funcion ( 


También debes evitar usar caracteres con tilde en el nombre. AI llamar 
debes usar los paréntesis después del nombre sino lo haees estarías impri¬ 
miendo la estruetura de la funeión. 


Si por easualidad quieres saber la estruetura de la funeión, entonees simple¬ 
mente eseribe en eonsola lo siguiente > nombre_funcion y listo. Para obtener 


el valor de la funeión debes usar los paréntesis al final del nombre, por ejemplo 


> nombre función 


Observe este ejemplo que muestra de una forma más detalla eomo funeiona: 


> Nombre <- function (){ 

printC'Hola Mundo") 


} 

> Nombre () 

[1] Hola Mundo 



> Nombre 

function (){ 
print ("Hola 


e 

Mundo" ) 


} 


Por eierto también hay oeasiones en donde se eomete errores al tratar de erear 
funeiones y dentro de los más eotidianos se eneuentran los siguientes. 


Los DE LA IZQUIERDA SON LOS ERRORES Y DERECHA ES COMO CORREGIRLO: 
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Recuerda que si hay un error en alguna parte de la función o en el contenido 
del código como print () , esto no ejecuta el bloque de código en su totalidad sino 
mas bien te imprimirá un texto de color rojo indicando parte del error y algunas 
pistas sobre donde esta el error generado. 
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CAPITULO 5. FUNCIONES EN R 


( 2 . 2 ) Funciones con argumentos 


Argumentos 


Clase <- /unction(argumentljargument2,argument3j . 
^ # fragmento codigo 

return( ) 


>{ 



} 


retorna 
un valor 


Los argumentos no son mas que refereneias que requiere la funeión para su 
funeionamiento, se debe entender que estas refereneias son objetos y que solo 
estarán disponible dentro de la funeión. También se euenta eon un return(), ésto 
sirve para haeer un retorno de solo un objeto o valor espeeífieo en toda la funeión. 


# función simple 
> Clase <- function(a){ 
tmp = log (a) /2 
return (tmp) 

} 


Sin Referencia 


> Clase () 

Error in Clase () : 

el argumento "a" está 
ausente, 

sin valor por omisión 


Con Referencia 
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Como se observa en la funeión Clase, tiene un objeto llamado a o bien puede 
llamarse eualquier otro nombre, lo que debes entender es que este objeto solo 
estará disponible dentro de la funeión y no fuera, ejemplo: 

Error: objeto 'a' no encontrado. 

Ahora el objeto a obligatoriamente tiene que reeibir una refereneia, easo eon- 
trario genera un error. 

Por ejemplo: se ereará una funeión eon dos argumentos “valor e inten¬ 
tos” donde valor reeibe un número que se eneuentre entre 1 y 10 e intentos 
igual, dentro de la función (cuerpo) se tratará de crear un objeto temporal 
que genera números aleatorios con un tamaño dado en el objeto intentos. 
Después se creará un for para verificar si el objeto temporal es igual al valor. 


#- función probar suerte 

> suerte <- function (valor, intentos)! 

tmp = sample (1 : 10, size = intentos, replace = F) 

for (i in seq along(tmp) ) { 

if (tmp[i] == valor ){ 

return(print ( " --> valor encontrado") ) 

} 

} 

return(print (" inténtelo nuevamente") ) 

} 


Por casualidad intenté con estos valores y he acertado, trate usted dar valores 
numéricos: 


> suerte (valor=2, intentos=4) 
[ 1 ] "inténtelo nuevamente" 


> suerte (valor=6, intentos=4) 
[ 1 ] " —> valor encontrado" 
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CAPITULO 5. FUNCIONES EN R 


¿ Que pasa si escribo mal la función? 



0 




En ( 1 ) elimine la última eoma y en ( 2 ) agrege el paréntes que eneierra a for 


Creando un convertidor : se creará una función convert con dos 

argumentos “dt y tipo” donde: 

✓ dt Hace referencia al objeto que tiene los datos. 

✓ tipo Hace referencia a que tipo de objeto deseas convertir. 

Como primer paso se necesita verificar si el objeto a convertir no se encuentra 
vacío 

✓ Objeto vacío Imprimirá en pantalla una alerta detallada y no logrará 
convertir. 

✓ Objeto no vacío Usando switch() que depende del tipo se procederá 
a convertir dicho objeto. 
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#-> multiconvertidor 

> convert <- function(dt, tipo=" factor" ){ 

if (! is.nuil (dt)){ 
switch (tipo, 

"vector"= { 

return ( as.vector (dt)) 

}, 

"factor"= { 

return ( as.factor (dt)) 

}, 

"list"= { 

return ( as.list (dt)) 

}, 

"matrix"= { 

return ( as.matrix (dt)) 

}, 

"raw"= { 

return ( as.raw (dt)) 

}, 

"data.frame"= { 

return ( as.data.frame (dt)) 

}, 

printC'tipo no existe") 

) 

}else{ 

warning ( "Verifique si no esta vacio") 

} 


En vez de usar if intente eon tryCatch(vea la seeeión 2, pagina 52) y observe 
el eomportamiento de la funeión ereada. 
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CAPITULO 5. FUNCIONES EN R 


Tkinter para abrir ficheros: intentaremos erear una funeión para 
abrir fieheros desde una interfaz. 



Tkinter para guardar ficheros: intentaremos erear una funeion pa¬ 
ra guardar fieheros desde una interfaz. 
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otras Operaciones 


(l.l) Operador Pipe 

El operador de tuberías o pipa “%>%” es muy usado en varios paquetes eomo es 
el caso de dplyr, magrittr, ggplot y entre otros. Consiste en concatenar múltiples 
operaciones hacia un objeto, estas operaciones van separados por “%>%” mientras 
más este a la izquierda, más superior será: 


obj %> % fl %> % f2 %> % f3 f3 ( f2 ( fl ( obj ) ) ) 

Para usar este operado es necesario que instale el siguiente paquete: 

r (3 

> install.packages { "magrittr" ) 


> library (magrittr) 

Recuerda conectarse a internet para descargar el paquete, ya después 
usa solo library. 


Aquí algunos ejemplos de como se usa: 

ejemplo 1 : Desde un objeto se intentará crear una matriz, después 
restaremos 12 a todos los elementos y para fin a lizar extraemos el elemento 
máximo.iVota; solo imprime el eáleulo ñnal. 
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> obj <- c(12,14,23,13,26,34,23,36,49, 

22,14,23) 

> obj %>% matrix (nrow=4,ncol=3) %>% 

-12 %>% max 

[1] 37 


“x%>%f (y) ” es igual a “x%>%f (x, y) ” 

O Cuando se trata de funciones como es el caso 
de la matrtx, el operador pipe realiza la operación 
de esta manera obj %>%matrix (ncol, nrow) a esto 
matrix(obj,ncol,nrow) 


ejemplo 2: Usaremos el otro comando %T>% para imprimir en consola 
únicamente la operación que hace cierta función, y se guardará en el objeto 
“a”( -> a) 


> obj %>% sort %T>% 

sum — > a 

> a 


[1] 12 13 14 14 22 

23 23 23 26 34 36 49 

> # Sin el T 


> obj %>% sort %T>% 

sum 

[1] 289 



ejemplo 3: Si tenemos objetos tipo data.frame, se usará “%$%” para 
reducir comandos como “tb$a” o este “attach (obj) ” que usa como fuente 
de datos y después solo escribes el nombre de la columna (tedioso si tienes 
muchos objetos). 
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1. OPERADOR PIPE 



> objl < 


c (16, 18,26, 16, 30, 44, 34, 48,56, 36,23,37) 


# 


Crear data trame 


> tb <- data.frame ( "a"=ob j, "b"=ob j1) 
# ================================ 

> tb %$% cor(a,b) 

[1] 0.9490482 


ejemplo 4 : Usar este símbolo “%<>%” para asignar o aetualizar valores a 
un objeto, en easo de tb su eontenido sera modifieado por el resultado de la 
eorrelaeión redondeada a tres eifras. 


> tb %<>% cor %>% round (digits = 3) 

> tb 


b 


a 


a 1.000 0.949 
b 0.949 1.000 


Este símbolo %<>% es muy similar al ejemplo 2 por el easo de — > a que genera 
el mismo resultado y usted puede eomprobarlo usando el símbolo de asignaeión 
< — que el mismo R nos ofreee. 

Al igual que “magrittr” también hay otra alternativa “library (pipeR) ” que es 
muy similar y solo el eambio es “%»%” 
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CAPITULO 6. OTRAS OPERACIONES 


(2.2) Caracteres 

Cada lenguaje de programaeión tiene en si su propio proeesado de earaeteres y 
R no es exclusión. Cuando se habla de caracteres en R nos referimos a objetos 
que tiene como elementos grupos de textos similares a nombres, fechas, correos y 
otros casos. El procesado toma en cuenta los espacios vacios 


H 

0 

1 

a 


M 

u 

n 

d 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 


Lo comando internos que ofrece R para extraer, reemplazar y recortar caracteres 
son los que se muestran en la siguiente tabla 6.1 


Cuadro 6.1: Extracción y cambios simples de caracteres 


1 Función 

¿Que hace? I 

casefold(x, upper) 

(x es objeto) Permite cambiar el texto de minús- 
cuIa(FALSE) a mayúscuIa(TRUE) 0 viceversa. 

chartr(oId,new,x) 

(x es objeto) Cambia un carácter existente (oíd) por 
uno nuevo(new). 

substr (x, start, stop) 

(x es objeto) Extrae grupo de caracteres que están 
entre start(numérico) y stop (numérico). 

strsplit(x,split) 

(x es objeto) Recorta caracteres declaradas en 
spiit.Genera una lista 

regexpr (pattern, text) 

(text es objeto) Permite obtener el indice del ca¬ 
rácter que coincide con elpatrón(pattern) y la 
cantidad de repeticiones.También agregue “igno¬ 
re. case=T” para omitir mayúsculas y minúsculas 

Se tomará estos objetos 

como referencias a los ejemplos: 

> texto <- "texto en 

[ minúscula" 


> estado <- cC'enojado", "feliz", "enojado", "molesto", 

"enojado", "enojado", "feliz", "mo@esto", 
"feliz", "molesto", "feliz", "fe@iz") 

> correos <- c ( "mrr@gmail.com" , "12asa@hotmail.com" , 

"5ftds@hotmail.com" , "H23@gmail.com" , 
"qqw2@gmx.com" , "we222@gmx.com" ) 
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> Ib <- pasteo ("Es malo estar aquí y bien. 
¿Usted es el malo?. 

Muchos lo dicen aquí y estoy bien ...") 


Observe los ejemplos: 

ejemplo 1: Cambiar todo el eontenido de un objeto a mayúseula y luego 
a minúseula. 


> casefold (texto,upper = T) 

# 

igual a 

-> toupper(texto) 

[1] "TEXTO EN MINÚSCULA" 




> casefold (texto,upper = E) 

# 

igual a 

-> tolower(texto) 

[1] "texto en minúscula" 





ejemplo 2: Verlfiear si un texto dado eomo patrón(pattern) se repite en 
el objeto “eorreos”, si es el easo, haeer un eambio. 


> grepl (pattern = "@gmx" ,ignore.case = T,x = correos) 

[1] FALSE FALSE FALSE FALSE TRUE TRUE 

> gsub (pattern = "@gmx" ,replacement = "@hotmail",x = correos, 

ignore.case = T) 

[1] "mrr@gmail.com" "12asa@hotmail.com" "5ftds@hotmail.com" 

^ "H23@gmail.com" 

[5] "qqw2@hotmail.com" "we222@hotmail.com" 

> chartr(old = "t",new = "T",x = texto) # cambia un carácter 
[1] "TexTo en minúscula" 


ejemplo 3: Extraer solo una parte del texto dada por el indiee y haeer 
eambios de un solo earáeter. También usar grep para verifiear eoineideneias 
en elementos y luego imprimir diehos valores. 
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> substr(x = texto,start = 10, stop = 18) 

[ 1 ] "minúscula" 

> chartr(old = "m",new = "M",x = texto) 

[1] "texto en Minúscula" 

#- 

> grep (pattern = "@gmail",x = correos) 

[1] 1 4 

> correos [grep (pattern = "@gmail",x = correos)] 
[1] "mrr@gmail.com" "H23@gmail.com" 


ejemplo 4: Verificar si hay algún elemento existente dada por pa- 
tron(pattern) y retornar una lista con elementos entrecortados. 
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ejemplo 5: Verificar mediante un patrón si existe “minús” en el objeto 
texto y retornar el índice junto con el tamaño. 


> regexpr (pattern = "minús ", ignore.case = T,text = texto) 

[ 1 ] 10 

attr (, "match.length" ) 

[1] 5 
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En la comunidad de R hay algunas librerías eon un gran poteneial para el 
análisis de texto (NLP) “Proeesamiento de Lenguaje Natural”. Para eontinuar por 
favor instale las siguientes librerías 


r 

> install.packages { "stringr" ) 

> install.packages {" stringi" ) 

> install.packages { "tokenizers" ) 

> install.packages { "tidyverse" ,dependencies = T) 

> install.packages { "cleanNLP" ) 



> library (tidyverse) 

> library (stringr) 

> library (stringi) 

> library (tokenizers) 

> library (cleanNLP) 

Para mas informaeión de stringr visite (https://stringr.tidyverse.org/) 
o la web github (https://github.com/tidyverse/stringr) 

Si tienes difieultades en tid)werse, instala 
install.packages("rlang", type = "source") 


ejemplo 6: Usar librería stringr 


# Contar cantidad de caracteres 

> str_count (string = correos) 

[1] 13 17 17 13 12 13 

# Contar solo los elementos que tienen a hotmail 

> str_count (string = correos,pattern = "hotmail") 

[1] 0 110 0 0 

# Mostrar solo los elementos que terminan en hot 

> str_subset (string = correos,pattern = "hot") 

[1] "12asa@hotmail.com" "5ftds@hotmail.com" 

# Si quieres verlo en html tipo web 

> install.packages ( "htmlwidgets" ) 
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> str_view (string = correos,pattern = "hotmail") 


ejemplo 7: Usar librería stringi 


# 

Verificar si si existe una letra 



> 

correos %stri<% "b" 




[1 

] FALSE TRUE TRUE FALSE 

FALSE FALSE 



# 

Mostrar estadísticas 

generales 



> 

stri_stats_general (str = texto) 




Lines LinesNEmpty 

Chars CharsNWhite 



1 1 

18 

16 


# 

Mostrar estadísticas 

especificas 



> 

stri_stats_latex (str = texto) 




CharsWord CharsCmdEnvir 

CharsWhite 


Words 


16 0 

2 


3 


Cmds Envirs 





0 0 





ejemplo 8: Usar librería tokenizers para ver palabras 


# Verificar si si existe una letra 

> tokenize_words (x = Ib) 


[1] 

[1] 

] 

"bien" 

"querido" 

"fagin" 

"se" 

[5] 

"puede" 

"saber" 

" que" 

"haces" 

[9] 

"ha" 

"esta" 

"hora" 

"de" 

13] 

"la" 

"noche" 

"visitando" 

"este" 

17] 

"vecindario" 

"y" 

"encima" 

"has" 

21] 

"logrado" 

"traer" 

"el" 

"gran" 

25] 

"botín" 

" que" 

"supuestamente" 

"era" 

29] 

"para" 

"las" 

"cuatrocientas" 

"horas" 

33] 

"si" 

"deseas" 

"un" 

"cambio 
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[37] "espera" "esta" 


"noche" 


ejemplo 9: Verificar cuantas veces se repite las palabras. Se usará tibble 
en vez de datajrame 


# ==== library ( "tidyverse") ==== 

> a <- tokenize 

_words (x = Ib) 

> b <- table(a[ 

[1] ] ) 

> tibble (letras 

= ñames (b),repetido = as.numeric (b)) 

# A tibble: 12 

X 2 

letras repetido 
<chr> <dbl> 

1 aquí 

2 

2 bien 

2 

3 dicen 

1 

4 el 

1 

5 es 

2 

6 estar 

1 

7 estoy 

1 

o 

1—1 

00 

1 

9 malo 

2 

10 muchos 

1 

11 usted 

1 

12 y 

2 


Ejemplo 10: Contar palabras, caracteres y sentencias 
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ejemplo 11: Usar cleanNLP para un análisis en profundidad, 
Atención: Se necesita instalar Python y después usar en consola 


pip install cleannlp 


> cnlp_init_stringi (locale="es_ES" ) 

> cnlp_init_udpipe (model_name=" spanish" ) 

> cnlp_init_spacy (model_name="es " ) 

Error: Python module 'cleannlp' not found. Install with: 
pip install cleannlp 

> cnlp_init_corenlp (lang="es") 

Error: Python module 'cleannlp' not found. Install with: 
pip install cleannlp 

> #- ejemplo 

> cnlp_annotate (input = Ib) 

$token 

# A tibble: 22 x 11 

sid tid token token_with_ws lemma upos xpos feats tid_source relation 
<int> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> 


1 

1 

Es 

"Es " 

ser 

AUX 

NA 

Mood. 

. . 

2 

cop 

1 

2 

malo 

"malo " 

malo 

ADJ 

NA 

Gend. 

. . 

0 

root 

1 

3 

estar 

"estar " 

estar 

AUX 

NA 

Verb. 

. . 

2 

csub j 

1 

4 

aquí 

"aquí " 

aqui 

ADV 

NA 

NA 

3 


advmod 

1 

5 

Y 

"y " 

Y 

CCONU 

NA 

NA 

6 


cc 

1 

6 

bien 

"bien" 

bien 

ADV 

NA 

NA 

4 


con j 

1 

7 

. 

" . \n" 


PUNCT 

NA 

NA 

2 


punct 

2 

1 

¿ 

II . II 

6 

¿ 

PUNCT 

NA 

NA 

5 


punct 

2 

2 

Usted 

"Usted " 

tú 

PRON 

NA 

Case. 

. . 

5 

nsub j 

2 

3 

es 

"es " 

ser 

AUX 

NA 

Mood. 

. . 

5 

cop 


# ... with 12 more rows 

$document 

doc_id 

1 1 
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(3.3) Gráficos 


Hay muchas librerías en la eomunidad del lenguaje R ofreeiendo generar 
gráfieos de distintos tipos de diseño. Es importante tener todas las librerías y el 
programa R aetualizados. Para esta seeeión se neeesitará estas librerías 


> install.packages { 

> install.packages { 

> install.packages { 

> install.packages { 

> install.packages { "plotly" ) 

> webshot: : install phantomjs () 


ggrepel") # ggplot2 comp. 
wordcloud2" ) 
webshot" ) 
ggplot2" ) 


1.3.1 Wordcloud 


Genera una nube de palabras de forma aleatoria, también puedes agregar una 
imagen eomo eontorno. 


Wordcloud: 

r - 

> library (webshot) #sirve para generar html 

> library (wordcloud2) 

> library (tokenizers) 





Ib = pasteo ( "hombre de los garabatos arremetió contra los 
gatos,hombre de los gatos arremetió garabatos, 
los garabatos del hombre arremetió contra los gatos, 
los gatos son garabatos") 

# 

a <- tokenize_words (x = Ib) 
b <- table (a[ [1] ]) 

tb <- tibble (letras = ñames (b),repetido = as . numeric (b)) 

#ar <- 

wordcloud2 (data = tb,size =1.8 ) 
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hombre 


Cuadro 6.2: Formas en wordcloud 


1 Forma 

Produce I 

circle 

Un eireulo 

cardioid 

Un gráfieo eardioide 

diamond 

Un diamante 

triangle-forward 

Un triangulo haeia adentro 

triangle 

Un triángulo 

pentagon 

Un pentágono 

star 

Una estrella 


Nota: Para obtener la forma eorreeta es ne- 
eesario tener hojas de puro palabras ya que 

depende de la eantidad de palabras. 


# 

> wordcloud2 (data = tb, shape="circled" ) 
# 


“Exportar a html y pdf ’ 

Es muy importante generar un pdf o eualquier otro formato 

O de imagen y se debe a que euando usted esta ereando un 
reporte en Sweave pdf, trabaje eorreetamente dado a que 
wordcloud solo genera un formato web. Es aquí donde usa 
la librería webshot para tomar eaptura. 
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# librerías 

> library (webshot) 

> library (htmlwidgets) 

# - 

> img <- wordcloud2 (data = tb, shape="circled" ) 

# 

> saveWidget (img, "temp.html" ,selfcontained = F) 

> webshot ( "temp.html" ,f ile="temp .pdf" , cliprect="viewport " ) 
# 


Información y ayuda: 

Puede usted eneontrar más informaeión en la siguiente web: 

https://www.r-graph-gallery.com/196-the-wordcloud2-library 

Si usted tiene instalado inkseape y desea una mejor ealidad al exportar, use 
esta web: 

https: / / www.jasondavies. com/wordcloud/ 


( 2 . 3 . 2 ) Plotly 


Una librería muy interesante que esta disponible en lenguajes de programaeión 
eomo: Python, Javaseript, Matlab, Perl, Julia, Arduino y R. Como nos eneontramos 
en R entonees se neeesita incluir esta librería plotly para las gráficas y dplyr es 
alternativa para crear el cuadro de datos (tibble) que ante se usaba data. trame 


r 

> library (plotly) 

> library (dplyr) # para tibble 





La librería genera un fichero web (html) que solo se puede abrir con el navegador 
web(si es que no cuenta con Rstudio). 

Observe los siguientes ejemplos: 
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Gráfico de donas 


> 

tab <- 

tibble (nombre= c ( "MBS" , "KRS" , 

"LM","SRA", 



"EIB","BIA", 

"SDA","KWJ") , 



valor = c(77, 56, 26, 

50, 80, 50, 69, 69)) 

> 

tab 



# 

A tibble: 8x2 



nombre 

valor 



<chr> 

<dbl> 


1 

MBS 

77 


2 

KRS 

56 


3 

LM 

26 


4 

SRA 

50 


5 

EIB 

80 


6 

BIA 

50 


7 

SDA 

69 


8 

KWJ 

69 


#= 






O 


> 

i-h 

iL 

A 

1 

tab %>% plot_ly ( labels=~nombre 

,valúes = -valor) %>% 



add_pie (hole = 0.6) 


#- 


O 


> 

fg %>% 

layout (title = "Gráfica Dona" 

,showlegend = T) 

> 

fg # ver gráfico 




Gráfica Dona 


■ EIB 

■ MBS 

■ 5DA 

■ KWJ 

■ KRS 

■ 5RA 

■ BIA 

■ LM 
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Se toma los elementos de tab para luego ser proeesados en pIot_Iy, reeuerda 
que todo esto es almaeenado en un nuevo objeto llamado fg. 

En el argumento labels haee refereneia a las etiquetas que en la data(tb) 
se eneuentra en la eolumna llamada “nombre” pero he aquí un detalle, presta 
ateneión al símbolo empleado (~nombre = tab$nombre) ambos generan el mismo 
resultado. AI igual que labels, valúes es en efeeto el mismo easo solo que en vez 
de etiqueta seria los datos numerieos. 

Luego se eneuentra la funeión add_pie(hole = 0.6) que signifiea el grosor de la 
dona, mientras mas se aproxime a la unidad (1.0) mas fino será el relleno. 

En eonfiguramos el diseño eomo es el easo del titulo,nombres al eje x e y, 
la leyenda y entre otros. 


Gráfico Pie(torta) 


> fg <- tab %>% plot_ly (labels=~nombre,valúes = -valor, 

type= "pie" ,textinfo= 'label+percent' , 
insidetextorientation= 'radial' , 
domain= list (row=0,column=l) ) %>% 

layout (tit le="Graf ico Pie" ,showlegend=T) 
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Gráfico de Dispersión 
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Cuadro 6.3: Colores compatibles con plotly 


hex color = "#FF0000" 
rgb color = "rgb(98, 197,59) " 
color rgba color = "rgba (98,197,59, 0.5)" 
hsl color = "hsl(335, 52%, 37%)" 
hsv color = "hsv(117,89%,100%)" 


I Importante: subpIot() parece ser que no funciona con 
gráficos tipo pie pero si con el resto. 


# 


> a <- sample (1 : 240, size = 90, replace = F) 

> tabla <- tibble(z = matrix(data = a,ncol = 10) ) 

> plot_ly(data = tabla,z=~z, type = 'heatmap') 

# mapa de calor 


# 



# - 

> plot_ly(data = tb, x=~x,y=~y, type = "bar", mode ="markers" 
- ) 

# barras 

# - 
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> plot_ly(data = tb, x=~x,y=~y,type = "scatter", 
mode=" lines" ,f ill="tozeroy " ) 

# dispersión con relleno 

# - 



#--- 

> plot_ly(data 

# histograma 

# - 


= tb,x=~x, type 


"histogram" ) 
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# - 

> plot_ly(data = tb,x=~x, type 

# gráfico boxplot 

# - 


"box") 


trace 0 


40 45 


50 


55 


X 


# - 

> plot_ly(data = tb, x=~x, y=~y, type 

# gráfico histograma en 2d 

# - 


"histogram2d" ) 
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“Mas información” 

En su pagina web https://plotly.eom/r/ encontra- 
rá todos los gráficos disponibles y si no es suficien- 
te entonces descarge el cheat sheet que esta dispo¬ 
nible en https://images.plot.ly/plotly-documentation/ 
images/r_cheat_sheet.pdf 


( 3 . 3 . 3 ) GGplot 


Es una de las librerías muy usadas y esto es porque permite personalizar cada 
detalle en la gráfica, lo de bueno es que trabaja modo sin conexión permitiendo 
exportar la gráfica en diferentes formatos como: “eps, ps, tex (pictex), pdf, jpeg, 
tiff, png, bmp, svg y wmf’. 


r 

> library (ggplot2) 

> library (ggrepel) #geom_label_repel() 





I Importante: El signo + sirve para unir funciones, esto 
es muy similar al operador pipe. 
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Cuadro 6.4: Gráñcos para una Variable 


1 Código 

Produce 

p + geom_density() 

gráfieo de densidad 

p + geom_dotpIot() 

gráfieo de puntos 

p + geom_histogram(binwidth = n ) 

histograma 

p + geom_barO 

gráfieo de barras 

p + geom_densityO 

gráfieo de densidad 


Nota: n es un numero eualquiera 


data tb 


> tb <- tibble (duración = sort(sample (10 : 30, 

size=36, replace=T)), 
respuesta = sort(sample (10 : 30, 

size=36, replace=T)) ) 

#- 

> p <- ggplot (data = tb,aes(x = respuesta)) 


Ejemplos usando una sola variable 


> p+geom_dotplot (binwidth=2 , 
method= "histodot" , 
stackdir="center" , 
f ill="white" , stroke=2) 


> p + geom_freqpoly () 



10 


20 2S 

respuesta 


30 



10 15 20 25 30 

respuesta 
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> p + geom_bar {) 


El siguiente gráfieo estadístieo es el euantil junto eon la pendiente (stat_qq_line) 


> p <- ggplot(data = tb, aes (sample = respuesta)) 

> p + stat_qq () + stat_qq_line () 
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-2 -'l Ó i 2 

Iheoretical 


Gráfico Pie 

También esta la gráfica de torta pero hay todo un proceso para lograr el diseño, 
al igual que el anterior se intentará crear un objeto temporal que nos servirá para 
generar valores aleatorios y después incluirlo en Qi] 


Agregar nueva columna a data tb 


> med <- sample (c ( "airl" , "pcl" , "pc2 " , "pc3 " , "pc4 " , " sync" ) ;• 

size=36, replace=T) 

> tb$m <- med 

> tb 


# A 

tibble: 

36 X 3 



duración 

respuesta 

m 


<int> 

<int> 

<chr> 

1 

10 

11 

pc4 

2 

10 

11 

pc2 

3 

10 

12 

sync 

4 

11 

13 

pc3 

# . 

.. with 

32 more rows 



Por tratarse de gráficos de una sola variable, usaremos solo la columna “tb$m”. 


Se necesitará de la función 
permite eliminar ciertas partes 


con el 


geom_bar() 


theme_void() 


coord_polar() 


y un tema que 
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> t <- ggplot (data = tab,aes(x = l,fill= m)) 

> t + geom_bar (width = 1) + coord_polar (theta="y " , start=0) + 

theme_void () + labs ( 

title = "Gráfica torta", 

subtitle = "Sub titulo" ,caption = "Fuente NI", 
fill ="Meca") + 

theme (legend.title = element_text ( 

face = "italic", 
family = "Times", 
colour = "blue", 
size = 14 

)# , O 

) 



Recuerda que el mismo procedimiento de legend.title se aplica a continuación 
del para los siguiente: 


J plot.title() 
plot.subtitle() 
plot.caption() 


— > titulo 

— > subtitulo 

— > encabezado 


La ubicación de la leyenda es definida por: 


legend.position = 


- > "top", "right", "left". 


"bottom" Solo elegir 
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CAPITULO 6. OTRAS OPERACIONES 


UNO. 

La siguiente funeión permite eneerrar el gráfieo en un euadro 

plot.background = element_rect (colour = "orange" ,size = 2) 

Previa de eomo se debe usar 

> t + geom_bar () + coord_polar () + theme_void () + labs () + 
theme ( 

legend.title = element_text () , 
plot.title = element_text (), 

plot.subtitle = element_text () , 
plot.caption = element_text () , 
legend.position = "top", 
plot.background = element_rect () 


Usted debe intentar dar forma a sus gráficos probando distintas funciones 
ya mostradas anteriormente. Ahora pasemos a los gráficos que necesitan de 2 
variables, vea la siguiente tabla 6.5 


Cuadro 6.5: Gráñcos para dos Variables 


1 Código 

Produce I 

p + geom_area() 

Gráfico de área con relleno 

p + geom_bar() 

Gráfico de barras 

p + geom_boxpIot() 

Gráfico de cajas 

p + geom_rug() 

Gráfico de lineas en ejes, úsalo como complemen¬ 
to 

p + geomjitter() 

Similar a geom_point( ), con la diferencia que 
agrega puntos aleatorios para datos dispersos 

Distribución Bivariado 

p + geom_bin2d() 

Mapa de calor con cuadros 2d 

p + geom_density2d( ) 

Gráfico de densidad en dos dimensiones 

p + geom_hex( ) 

Mapa de calor con cuadros hexagonales similar a 
geom_bin2d() 

p + geom_area() 

Gráfico de relleno con lineas tipo cintas 

p + geom_Iine() 

Gráfico de lineas 


Nota: en caso de ser gráfico de puntos, puedes usar “alpha = 0 . 6”(oa 
de 0.0 a 1.0) 


Pasemos a algunos ejemplos: 
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2 variables numéricos y 1 no numérico 


> p <- ggplot (data=tb, aes (x=duracion,y=respuesta,color = m 


Agregando en aes(eolor=objeto$eolumna), erear eolores aleatorios de aeuerdo a 
la eolumna, es de vital importaneia que la eolumna seleeeionada tenga elementos 

re petitivos. _ 

Ejemplos usando dos variable 


> p + geom_point ( size=4 , 
alpha=0 .6) 


el argumento size sirve para redueir 
o aumentar el tamaño de los puntos (no 
usar valores negativos) 



m 

• airi 

• peí 

• Pe2 

• Pe3 
® pc4 
^ sync 


10 15 20 25 30 

duración 


> p + geom_bar ( 

stat=" identity" , 
aes (fill=m)) 



10 15 20 25 30 

duración 


> p + geom_rug {alpha=0 .5, 
sides="trbl " , 
position=" jitter" ) 


alpha es la transpareneia del eolor( va¬ 
lores 0.0 hasta 1.00 ). 


_ i II 1 I til I I II I in I I' I 

25 — 

20 

15 

■'0-~ ^1 I I , (I I I 1 , . . I : 

10 15 20 25 

duración 


30 


m 

— airi 
peí 
pc2 
pc3 
pc4 
sync 


> p + geom_boxplot () 


el aes{flll=m) sive para ajustar y relle¬ 
nar de eolor las barras de aeuerdo a la eo¬ 
lumna m. 


m 

air! 

$ peí 
$ pc2 
pc3 
F^ pc4 
sync 

16 20 24 

duración 
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CAPITULO 6. OTRAS OPERACIONES 



Hay una función llamada grid.arrange(...,ncol=n) que permite unir múltiples 
gráfieas en una sola, por ejemplo: 

> q4 <- p + geom_bin2d () 

> ql <- p + geom_density2d () 

> q3 <- p + geom_area () 

> q2 <- p + geom_line () 

> gridExtra :: grid.arrange (ql,q2,q3,q4) tusar ncol= 2 
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Aquí usaremos la librería library (ggrepel) que ofreee dos funeiones: 
geom_text_repel () muestra solo texto y geom_label_repel () muestra el texto 
dentro de un reetángulo. 

tlibrary(ggrepel) # 

> 11 <- p + geom_text_repel(aes ( label=m), size= 3) 

> 12 <- p + geom_label_repel(aes ( label=m), size= 3) 

> gridExtra: : grid.arrange (11,12) 


airi pc3w pc4 

airl 



aírl 


duración 


sync 


30 



duración 


a airi 
a pc1 
a pc2 
a pc3 
a pc4 
a sync 

m 

a airi 
a pc1 
a pc2 
a pc3 
a pc4 
a sync 


Annotate 

Los textos matemátieos también se pueden eseribir en ggplot pero tiene su pro¬ 
pia sintaxis de eseritura, si desea más informaeión visite “https://astrostatistics. 
psu.edu/su07/R/html/grDevices/html/plotmath.htmr 


# - formula para calcular B? 

> r = round (suiranary (Im (data = tb, 

formula = duración-respuesta))$r.squared, 3) 

# - 

> p + geom_point ( ) + annotate ( "text ", x=12,y=27 ,parse=T, 

label=paste ( " ~R'^2 ==",r ) , size=6) + theme_bw () 
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CAPITULO 6. OTRAS OPERACIONES 


Se ha usado annotate(parse=T) es importante que parse=T solo de esa 
forma imprime texto matemátieo, la faeilidad de esta funeión es que permite 
ubiear el texto en los puntos “x” e “y”. También hay otras opeiones usando 

angle=90, colour="red" ,f amily="Courier " , fontf ace="bold" 



m 

• aírl 

• pc1 

• pc2 

• pc3 

• pc4 

• sync 


Annotate permite usar la opeión “rect" que permite erear un reetángulo a partir 
de las dimensiones dadas 


> p + geom_point () + 
annotate ( "rect" , 
xmin=20, xmax=25, 
ymin=8,ymax=30, 
alpha=0.2 ,fill="red") + 
theme_bw () 


30 



10 15 20 25 30 

duración 
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la otra opción que crea una flecha en el gráflco, es “segment” y muy importante 
cuando se trata de gráficos estadísticos 


> p + geom_point () + 
annotate ( "segment" , 
x=16, xend=19, 
y=30,yend=26, 

alpha=0 .3 ,f ill="red" , arrow=arrow (), size=2 ) 



gráfico torta 

Continuando con gráficos tipo torta, en este apartado se intentará mejorar el 
diseño usando dos variables (columnas) por motivos de estética. 


data para gráfico pie usando 2 variables 


> tab <- tibble(valor=sample (20 : 40, size = 5, replace = T), 

text= c ("Al","A2","B2","C4","D2") ) 

# - prop = "proporción" 

> tab <- tab %>% arrange(dése (text)) %>% 

mutate (prop = valor/ sum (tab$valor) *100) 

# - posición de "y" para label 

> tab <- tab %>% mutate (ypos = cumsum (prop)- 0.5*prop) 

> tab 

# A tibble: 5x4 

valor text prop ypos 

<int> <chr> <dbl> <dbl> 

1 33 D2 21.2 9.52 

2 35 C4 22.4 31.2 


93 











94 


CAPITULO 6. OTRAS OPERACIONES 


3 

30 

B2 

19.2 

52.2 

4 

24 

A2 

15.4 

69.7 

5 

34 

Al 

21.8 

88.0 


> torta <- ggplot (data = tab,aes(x = 2, y=prop, fill= text)) 

> torta + geom_bar (stat="identity" , width=l, show.legend=F) + 

coord_polar (theta = "y", start = 0) + theme_void () + 
geom_label_repel(aes (y = ypos,label=text), color="white" , 
size= 5, show.legend = F 

) + scale_fill_grey () + xlim(0.5, 2.5) 



Usando otra forma y con colores definidos manualmente por 

scale_fill_manual(valúes = objeto) 


> col <- c ("#31f48e","#07aa7b","#0bbeff","#0086ff","#01437d") 

> ggplot (tab, aes (x="", y = valor, fill = factor (text))) + 

geom_bar (width = 1, stat = "identity") + 

geom_text(aes ( 

label = paste(round (valor/sum (valor) * 100,1) , "%") ), 
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position = position_stack (vjust = 0.5), 
color="white" ,fontf ace="bold" ) + 

theme_classic () + 

theme (plot.title = element_text (h just=0 . 5) , 
axis.line = element_blank (), 
axis.text = element_blank (), 

axis.ticks = element_blank ()) + 
labs(fill = "Categoría", 

X = NULL, 
y = NULL, 

title = "Gráfico Circular") + 

coord_polar ( "y" )+ scale_fill_manual (valúes = col) 


Gráfico Circular 



Categoría 



gráfico de barras para escala likert 

Además de erear estos grádeos seneillos, intentaremos ir un poeo mas lejos 
y para ello se intentará erear un gráfieo tipo likert eon tres dimensiones, nos 
apoyaremos por el gráfieo de barras: 


Importante 


• Es neeesario deseargar estos dos fieheros: 

stat_fill_labels.R 
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CAPITULO 6. OTRAS OPERACIONES 



inv_cums\am. R 

desde su pagina github del autor https://github.com/ 
larmarange/JLutils/tree/master/R o también en esta parte 
https://github.com/Moriand/Rlabels 

Una vez deseargado use esto en su eonsola de R 

r 

> source (file = file.choose ()) #stat_fill_labels.R 

> source (file = file.choose ()) #inv_cumsum.R 

^ -- ^ 


Primero de lo primero, se neeesita la data y lo obtendremos eon una funeión 
que genera valores aleatorios: 


función para generar valores aleatorios 


> función <- function (caso,Ib,n){ 

tmp <- sample(x = lb,size = n,replace = TRUE) %>% 
tableo %>% data. f rame () 
tmp$p <- tmp$Freq %>% prop.tableO %>% 
round(digits = 4)*100 
tmp$w <- rep (caso, length (tmp$Freq)) 
ñames (tmp) <- c ( "label" , "Freq" , "prop" , "w" ) 
return (tmp) 

} 


Intentaremos erear un objeto que eontenga las etiquetas likert [lab) y un objeto 
llamado easos que se eneargara de almaeenar la data 


data casos 

> 

lab <■ 

- c ( "Totalmente Satisfecho"," 

Muy Satisfecho", 



"Neutro","Poco Satisfecho"," 

Nada Satisfecho") 

> 

casos 

<- función (caso = "Casol",lb 

= lab,n = 40) 

> 

casos 

<- rbind (casos, función (caso 

= "Caso2", 




ib = lab,n = 40) ) 

> 

casos 

<- rbind (casos, función (caso 

= "CasoS", 




ib = lab,n = 40) ) 
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rep() 




lahel Fren 

prnp 

w 


Muy Satisfecho 

6 

!'■ "■■r" 

15-0 

Casoi 


Nada Satisfecho 

13 

32.5 

Casoi 


Neutro 

7 

17-5 

Casoi 


Poco Satisfecho 

8 

20.0 

Casoi 


Totalmente Satisfecho 

6 

IS.O 

Casoi 


^ Muy Satisfecho 

8 

20.0 

Caso 2 

1 

1 Nada Satisfecho 

9 

22.5 

Caso 2 


1 Neutro 

9 

22.5 

Caso 2 

1 

1 Poco Satisfecho 

6 

15-0 

Caso 2 

s c 

Totalmente Satisfecho 

8 

20.0 

Caso 2 

^ 1 

1 Muy Satisfecho 

4 

10.0 

Casos 


1 Nada Satisfecho 

11 

27-5 

Casos 


1 Neutro 

8 

20.0 

Casos 


l Poco Satisfecho 

4 

10.0 

Casos 


V Totalmente Satisfecho 

13 

32.5 

Casos 


Usamos la data casos que es un data.frame, en la librería ggplot de la siguiente 
manera 
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CAPITULO 6. OTRAS OPERACIONES 


gráfico 


# stat_fill_labels.R 

# inv_cumsum.R 

> s <- ggplot (data=casos, aes (x=w,fill=label,weight=prop)) 

> s + geom_bar (position = "fill") + scale_fill_brewer () + 

theme_bw () + 
labs ( 

fill=" Indicador" , face="bold", size=14, 
y="Porcenta je" , x="Según Dimensión") + 

stat_fill_labels () 



Indicador 


Muy Satisfecho 
Nada Satisfecho 
Neutro 

Poco Satisfecho 
Totaimente Satisfecho 


Puede agregar reetángulos a eada etiqueta que eontiene el poreentaje eambian- 
do 

stat_fill_labels () por este otro 
geom_label(stat = "fill_labels") 
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temas 

La librería ofrece varios tipos de temas que cada uno de ellos tiene distintos 
estilos. 


Cuadro 6.6: Lista de temas para ggplot 


1 temas 

temas I 

theme_bw [) 

theme_grey [) 

theme_classic [) 

theme_light [) 

theme_dark [) 

theme_linedraw [) 

theme_void [) 

theme_minimal [) 

theme_gray [) 

theme_test [) 

argumentos 

base_size = 14 

tamaño del texto 

base_family = "times" 

fuente tipográfica para el texto 

base_line_size = 9 

grosor de linea para los ejes x e y 

base_rect_size = 4 

grosor de la caja, Nota: funciona con “bw, 

CLASSIC, LIGHT.LINEDRAW Y TEST” 


temas 


#library(ggplot2) 

#library(tibble) 

# ver data tb 

> q <- ggplot (data = tb, aes (x=duracion,y=respuesta,color=m)) 

> p <- q + geom_point (size=6,alpha=0 . 4) 


> 


> 


> 


> 


> 


> 


> 


pO <- p + theme_bw () + 

annotate ( "text" ,X = 14, y = 25, label="theme_bw" , 
pl <- p + theme_classic () + 

annotate ( "text" , x=14,y=25, label="theme_classic" , 
p2 <- p + theme_dark () + 

annotate ( "text ", X = 14, y = 25, label="theme_dark" 
p3 <- p + theme_void () + 

annotate ( "text ", X = 14 , y=25, label="theme_void" , 
p4 <- p + theme_gray () + 

annotate ( "text ", X = 14 , y=25, label="theme_gray " , 
p5 <- p + theme_grey () + 

annotate ( "text ", X = 14 , y=25, label="theme_grey " , 
p6 <- p + theme_light () + 

annotate ( "text" ,x =14,y=25, label="theme_light " , 


size= 6) 
size= 6) 
, size=6) 
size= 6) 
size= 6) 
size= 6) 
size= 6) 
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> p7 <- p + theme_linedraw () + 

annotate ( "text" , x=16, y=25, label="theme_linedraw" , size=6) 

> p8 <- p + theme_minimal () + 

annotate ( "text" , x=16, y=25, label="theme_minimal" ,size= 6) 

> p9 <- p + theme_test (base_size = 14, 

base_family = "Times", 
base_line_size = 9, 
base_rect_size = 4) + 

annotate ( "text", X = 14, y=25, label="theme_test" , size=6) 

> gridExtra:: grid.arrange (p0,p2,p3,p4,p5,p6,p7,p8,p9) 




• • 



^ airi 

# pc1 
0 pc2 
0 pc3 

# pc4 


% pc1 

# pc2 

# PC3 
^ pc4 
9 sync 


theme_grey 






I* 

.• • • 


25 theme minimal 






theme void 






•••• 


• • 


^ airi 
% pc1 
0 pc2 
© pc3 


0 airi 
0 Pc 1 

0 Pc 2 

pc4 
0 sync 



I peí 
0 Pc 2 
0 Pc 3 

O 

0 sync 


0 airl 
0 peí 
0 Pc2 
0 Pc3 
0 Pc4 


0 airl 
0 peí 
0 pc2 
0 pe 3 
pc4 
0 sync 


Otra función importante es la siguiente 

p + theme_bw() + facet_grid (rows=vars (m)) 

las fuentes tipográfieas que aeepta ggplot son : “Short, Canonieal, mono, Courier, 
sans, Helvetiea, serif, Times, AvantGarde ,Bookman ,HeIvetiea-Narrow, NewCen- 
turySehooIbook, Palatino, URWGothie, URWBookman, NimbusMon, URWHel- 
vetiea, NimbusSan, NimbusSanCond, CenturySeb, URWPalIadio, URWTimes, 
NimbusRom” 

también la forma “faee =” "plain" , "bold" , "italic" , "bold. italic" 
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Si en los ejes “x” e “y” muestran textos sobrepuestos, debe agregar esta funeión: 


p + scale_x_discrete (guide = guide_axis (n.dodge = 2)) 

O esta otra funeión que elimina las etiquetas que unieamente están sobre monta¬ 
das: 

p + scale_x_discrete (guide = guide_axis (check.overlap = TRUE) ) 


Si quieres centrar el titulo del gráfico “caption” agrega lo siguiente: 

p + theme (plot.title = element_text (hjust = 0.5)) 


Mas información 

En el libro R Graphics Cookbook[2], “capitulo 8” y sección “Fonts” usted 
puede encontrar más ejemplos sobre las fuentes tipográficas, temas y estilos. 
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Importando y Exportando ficheros 


En toda esta sección se encontrará con la función fíle.choose() y bueno sirve 
para encontrar el fichero o la dirección relativa a ella por ejemplo: 

Q C:/Users/Den/Desktop/tabla. csv (Den: Usuario del equipo) 

O sea que con esta función no se necesita escribir el directorio sino mas bien 
aparecerá una interfaz que permite recorrer de forma gráfica donde esta el fichero 
que se desea abrir y retornará una dirección, ¿muy interesante no te parece?. 
Ahora intenta esto: 

> print(file.choose () ) 

[1] "C:\\Users\\Den\\Desktop\\tabla.csv" 
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CAPITULO 7. IMPORTANDO Y EXPORTANDO FICHEROS 


Figura 7.1: Abrir fíchero 



> prÍRt(file.choQse() 


Si usamos nuevamente fíle.choose() eomo exportaeión de fiehero entonees en 
File ñame se le da un nombre y el formato que se desea exportar por ejemplo 
“exportar, csv” y después presiona el botón ^en, lo que generará otra ventana 
advirtiendo que dieho fiehero no existe pero nos ofreee la opeión de erear uno y es 
ahí donde presionas en el botón Yes para crearlo. Recuerda que esto no crea el 
fichero sino mas bien genera un enlace con el nombre del fichero a crear. 

> file.choose () 

[1] "C:\\Users\\Denn\\Desktop\\exporta.csv" 


Revise los ejemplos 2.1 y 2.2(pagina 62) que es otra alternativa personaliza- 
ble para abrir y guardar ficheros. 

Abrir(nombre ="txt texto" ,filtro = ".txt") 

Guardar(nombre ="txt texto" ,filtro = ".txt") 
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Figura 7.2: Crear ñchero 


> print(file . chooseo) 

[1] "C: WUsersWDermWDesktopW tabla . esv" 

> file . chooseO 

Scicoonar archivo 


t BDrsktop V Cf Sea'c'h Deiktop p 



CÍ7I) csv 


El fichero sencillo de manejar en R y se presentará algunas funciones que se 
encargan de importar y exportar fichero csv. A continuación se mostrará una tabla 
que se tomará como ejemplo para procesar en R, al lado izquierdo se encuentra la 
vista de la tabla y al lado derecho esta los datos en un fichero llamado tabla, csv, 
intente crear un fichero desde el bloc de notas y guárdelo como tabla, csv o también 
puede hacerlo directamente de software MS Excel. 


tabla 



title 1 

title2 

fl 

13 

10 

f2 

11 

8 

f3 

18 

13 

f4 

21,4 

19,4 

15 

16 

12 

f6 

@ 

“12” 
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CAPITULO 7. IMPORTANDO Y EXPORTANDO FICHEROS 


(1.1.1} Importar 

Se presentarán algunas funeiones que permiten la importaeión de este fiehero. 

interna 


read. csv(fíle, header, sep, quote, dec, fíll, comment. char, row. ñames) 

En file también puede agregar uri, acepta enlaces que inicien con 
http://, https://, ftp://, o ftps : // y terminen en .gz, .bz2, .xz, o .zip 
(caso de ser comprimido) y .csv por ejemplo: 

file="http:// ..../tabla.csv" 


file (enlace) Se coloca el directorio o el enlace donde 

esta el fichero. 

header (booleano) Indica si el fichero tiene o no en la 

primera fila los nombres de las columnas, 
sep (char) Que tipo de separador usa el fichero, den¬ 

tro de los más conocidos o o “t” o “I” y 
otros. 

quote (char) Si hay comentarios que por lo general 

van entre comillas y para eliminarlo se usa 

quote="\"" . 


dec 


(char) Dice que tipo de símbolo usa para decima¬ 
les por ejemplo o “,”.Solo funciona si toda la 
columna es numeric 


fiU 


(booleano) Si f ill=T entonces las celdas vaciás 


se llenarán con valor NA, caso contrario (F) lo 


deja en blanco. 

na.strings (char) Si 

intenta 

por casualidad no funciona lili, entonces 

fill=T,na. strings=" " 

• 

comment.char (char) S 

. comment.char="L" 

, buscará todos los 


elementos que contengan ese valor y lo eliminará. 
Solo aceptará un carácter. 


row.names 


(numérico) Si escribe row.names=l , estará di¬ 


ciendo que la primera columna contiene los nom¬ 
bres para todas las filas. 
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Ejemplo 1 


> tabla <- read.csv (f ile=file. choose (), 

header=TRUE, sep=" , " , 
row. names=l ) 


> 

tabla 



titleí 

title2 

fl 

13 

10 

f2 

11 

8 

f3 

18 

13 

f4 

21, 4 

19, 4 

f5 

16 

12 

f6 

12 


@ 



> 

View (tabla) 

# vist. 


Se observa que en los decimales ha usado la coma y en la ultima fila todavía 
se encuentra el char(@). 


Ejemplo 2 


> tabla <- read.csv ( file=file. choose O , 

header=T, sep=",", 
row.names=l, quote = 
dec=",", fill = T, 
na. strings=" " , 
comment.char = "@") 

> tabla 



titlel 

title2 

fl 

13.0 

10.0 

f2 

11.0 

8.0 

f3 

18.0 

13.0 

f4 

21.4 

19.4 

f5 

16.0 

12.0 

f6 

12.0 

NA 


> View (tabla) # vista del IDE 


Se ha logrado corregir los casos de la 

eliminar la 

el relleno 


cias a 

quote = dec="," 

comment.char = "@" 

y añadir 


coma por punto gra- 
ultima fila con 

del <NA> con 
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fill = T, na.strings=' 
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readr 


read_csv( file, col_names, comment, quote, n_max,skip, na ) 

En esta librería se tiene eontrol sobre la eantidad de datos que usted desea 
extraer y también el eontrol sobre que earáeter sobreeseribir euando tiene una 
eelda sin valores pero resulta difieultoso euando se tiene deeimales dentro de 
eomillas. 


file (enlace) Se eoloea el direetorio o el enlaee donde 

esta el fiehero. 


col_names 

[booleano) Indiea si el fiehero tiene una eolumna 
de nombres. 

comment 

[char) Sirve para omitir elementos que eontienen 
dieho valor eserito. 

quote 

[char) Si hay eomentarios que por lo general 


van entre ec 

quote=" \"" 

)millas y para eliminarlo se usa 

n_max 

[numeric) Limita la eantidad de valores. No acep¬ 
ta cadena “c(l:3)” 

na 

[char) Permite eambiar valores de elementos nu¬ 
los o vaeíos 

skip 

[numeric) Si eoloea skip=3 entonees eliminará 
filas desde el 1 hasta 3. Acepta solo un valor, no 
cadena 


Librería importante para poder usar esta función: 

r 

> library (readr) 

> # si hay error usar 

> install.packages { "readr" ) 

> library (readr) 

Reeuerda eoneetarse a internet para deseargar ins- 
^tall.packages(“readr”) ya después usa solo library(readr). ^ 

En el ejemplo siguiente se observa que tiene un error y éste es generado por los 
números que están en eomillas, preste ateneión al delimitador(,) y al quote (\") 
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csvread 


csvread(file, coltypes, header, nrows, verbose, delimiter, na.strings) ) 

Y por ultimo hay una librería externa que ofreee leer de lOM a más líneas eon 
una super veloeidad usando poea memoria de R. Bueno esta librería se difereneia 
de las otras por su gran velocidad en procesar los datos pero eso no lo hace el 
único que usted pueda usarlo ya que por alguna razón no están incluidas estas 
funciones quote y dec. 

También es importante agregar que cuenta con la función de nrows, permi¬ 
tiendo solo cargar una determinada cantidad de filas. 

Si desea mas información, visite https://cran.r-project.org/web/packages/ 
csvread/csvread.pdf 


file 

(enlace) Se coloca el directorio o el enlace donde esta el 
fichero. 

coltypes 

(string) Necesita saber que typo 

de datos hay en columnas, ejm: 

"integer", "double", "string", "long", "longhex" 

header 

(boolean) ¿La primera fila contiene los nombres para las 
columnas? (TRUE o FALSE) 

nrows 

(numeric) Indique la cantidad de lineas a leer (solo un 
valor), por ejm 30. 

verbose 

(boolean) Imprime la cantidad de lineas. 

delimiter 

(char) Indique el tipo de separador usado en el fichero.ejm: 

, O ; O t O 1 

na.strings 

(char) Permite cambiar valores de elementos nulos o vacíos, 
ejem:"NA", "na","NULL", "nuil", "" 

•f, 



Librería importante para poder usar esta función: 


r 

> install.packages { "csvread" ) 

> library (csvread) 

Recuerda conectarse a internet para descargar 

tall.packages(“csvread”) ya después usa solo library(csvread). 



ins- 
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AI igual que la librería anterior ésta también se tiene difieultades al leer el 
fiehero pero se tratará de eorregirlo eon algunas funeiones internas que posee el 
lenguaje R llamada rownames, lapply 


Ejemplo 


> # verificar tipos de datos para coltypes 

> map.coltypes (file = file.choose (), header = t; 

X titlel title2 


II 

string" 

"string" 

"string" 

> 

# cargar fichero 

> 

tabla 

<- csvread(file = file.choose 




header = T, delimite. 




coltypes = 




c (" string" , "string" 

> 

tabla 





titlel 

title2 

1 

fl 

13 

10 

2 

f2 

11 

8 

3 

f3 

18 

13 

4 

f4 

"21,4" 

"19,4" 

5 

f5 

16 

12 

6 

f6 

"12" 

<NA> 

7 

@ 

<NA> 

<NA> 


' string" ^ 


> # nombre de filas 

> rownames (tabla) <- tabla [,1 

> # eliminar lera columna 

> tabla [,1] = NULL 

> # eliminar ultima fila 

> tabla = tabla [-7,] 

> # eliminar comillas 

> tabla[] <-lapply (tabla, 

O 

> # cambiar coma por punto 

> tabla[] <-lapply (tabla, gsub, pattern=' 

> tabla 


O 

o 

o 

gsub, pattern='"' 


replacement= '' 


replacement= '.' 



titlel 

title2 

fl 

13 

10 

f2 

11 

8 

f3 

18 

13 
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f4 

21.4 

19.4 

f5 

16 

12 

f6 

12 

<NA> 


> View (tabla) #—> ver por interfaz 


como los nombres de las filas son “1,2,3,4,5,6,7”, entonees los cambio 
por la lera columna. 

elimino la lera columna sobrante que es “fl,f2,f3,f4,f5,f6,@” 

O elimino la ultima fila que solo eontiene al @ eomo únieo elemento. 

uso lapply para detectar las comillas y eliminarlos. 

O usando la misma funeión eon el objetivo de cambiar comas por puntos. 
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2.1.2 Exportar 

interna 

Para la exportación de fichero csv en R es muy sencillo, solamente se requiere 
de algunos comandos y listo. Al igual que en el caso de importar fichero, se 
presentará por librerías y el motivo es nada mas que usted elija con cual se 
siente más cómodo ya sea por rendimiento u otras funciones configurables. A 
continuación se presentará algunas librerías populares. 


write.csv(x, file, row.names, fíleEncoding ) 


X 

(objeto) Hace referencia al objeto creado y que 
contiene los datos. 

file 

(string) Se necesita el directorio donde se va 
a guardar el fichero y la extensión, ejemplo 

f ile="D :/User/exportar.csv" 

row.names 

(boolean) Pregunta si, ¿el objeto creado tiene 
nombre en las filas? 

fíleEncoding 

(string) Debes indicar la codificación del fichero, 
los más usados "latinl", "UTF-8". 
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readr 


write_csv(x, path, col_names, na, quote_escape ) 


write_excel_csv(x, path, append, col_names, na, delim) 


X 

(objeto) Hace referencia al objeto creado y que 
contiene los datos. 

path 

(string) Se necesita el directorio donde se va 
a guardar el fichero y la extensión, ejemplo 

path="D :/User/exportar.csv" 

col_names 

(boolean) Pregunta si, ¿el objeto creado tiene 
nombre en las columnas? 

na 

(string) Si algún elemento esta vacío entonces 
esta función permitirá modificar ese valor. 

quote_escape 

(string) Esto funciona para los elementos que es¬ 
tán entre comillas, permite modificar los valores. 

append 

(boolean) Si el fichero existe, entonces este al ser 
TRUE solamente actualizará los datos. 

delim 

(string) permite modificar el delimitador o sepa¬ 
rador de cada elemento. Por ejemplo delim=", " 


Lo primero es abrir la librería para poder usar esta funeión, así que ejeeute lo 
siguiente: 


(( 


> library (readr) 


Si al ejeeutar library(readr) genera un error, entonees signifiea que no 
has instalado, por favor usar install .packages ( "readr" ) 
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> write_csv(x = dt,path = file.choose (),append = F,col_names 

^ = T,na = 

quote_escape = "double") 

> write_excel_csv (x = dt,path = file.choose (),append = 

T,col_names = T, 

na = delim = 


Recuerda que fíle.choose() es una interfaz gráfica. Si el archivo existe este 
lo va a actualizador de acuerdo a append, por favor cuidado al usar. 


116 











1. csv 


117 


data.table 


fwrite(x, file, sep, col.names, dec, na) 


X 

(objeto) Haee referencia al objeto creado y que 
contiene los datos. 

file 

(string) Se necesita el directorio donde se va 
a guardar el fichero y la extensión, ejemplo 

file="D:/User/ exportar.csv" 

col.names 

(boolean) Pregunta si, ¿el objeto creado tiene 
nombre en las columnas? 

na 

(string) Si algún elemento esta vacío entonces 
esta función permitirá modificar ese valor. 

sep 

(string) Permite modificar el tipo de separador 
que se usará. 

dec 

(string) Si hay elementos tipo decimal, entonces 
dec permite cambiar el símbolo. 


Al igual que la librería anterior, esta también es una librería externa que se 
neeesita instalar primero para después ineluir en el aetual proyeeto. 


r 

> install.packages { "data.table" ) 

> library (data.table) 






117 






















118 


CAPITULO 7. IMPORTANDO Y EXPORTANDO FICHEROS 


(2^ SPSS 

También conocido por su nombre completo “IBM SPSS Statisties”, software 
dedieado a estadístieos muy similar al lenguaje R pero eon la difereneia de su 
eosto. En R hay muehas librerías que eumplen eon la funeión de importar y 
exportar, elaro que eada una de ellas ofreee distintas opeiones. 


1.2.1 Importar 

foreign 

Se eomenzará eon una librería interna llamada “foreign”, esta librería ofreee 
no solamente abrir fieheros .sav sino diversas extensiones de otros softwares que 
en su gran mayoría no son libres , empezamos eon: 


read.spss(fíle, to.data.frame, use.value.labels, use.missings) 


file 

(enlace) Se eoloea el direetorio o el enlaee donde 
esta el fiehero. 

to.data.frame 

(booleano) Si es TRUE entonees eonvierte a da¬ 
ta.frame, easo eontrario será una lista. 

use.value.labels 

(booleano) Permite eseoger si los elementos son 
tomados desde las etiquetas (valores) o se mantie¬ 
ne eomo numérieo. 

use.missings 

(booleano) Si hay elementos vaeíos entonees eon 
TRUE lo rellena eon NA 




Esta librería esta ineluida dentro del lenguaje R pero se neeesita llamarlo o 
ineluir en el trabajo aetual para poder usarlo y para ello use lo siguiente: 




> library (foreign) 

# si deseas actualizar libreria 


> 


install.packages { "foreign" ) 
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# al usar use.valué.labels = T, estoy tomando los valores 

# de las etiquetas. 
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haven 

La siguiente librería llamada haven que esta dentro de tidyverse, ofreee no 
solamente abrir el fiehero “.sav” sino mas bien su anteeesor “.por”. La librería tiene 
dos funeiones “read_savO y read_porO” pero se puede omitir estas dos funeiones 
y usar de forma general “read_spss()” que se eneargará de abrir por medio de la 
extensión que el fiehero tenga. 

Hablemos sobre que benefieios ofreee esta librería y eonsidero que los impor¬ 
tantes son: 

✓ Permite seleeeionar algunas eolumnas que usted desea. 

✓ Permite seleeeionar una eierta eantidad de datos. 

✓ AI igual que la librería anterior, también permite el rellenado de elementos 
vaeíos. 


read_spss(fíle, user_na, col_select, n_max) 


fíle 

(enlace) Se eoloea el direetorio o el enlaee donde 
esta el fiehero (sav,por y zsav). 

col_select 

(lista) Permite seleeeionar las eolumnas que se 
desea eargar. col select= c (1, 3, 5) 

n_max 

(numérico) Coloear la eantidad de filas a proee- 
sar, aeepta una longitud. 

user_na 

(booleano) Si hay elementos vaeíos entonees eon 
TRUE lo rellena eon NA 




Dato importante: La librería es externa y se tiene que obligatoriamen¬ 
te INSTALARLO. . 




> install.packages { "haven" ) 

> library (haven) 

Se neeesita internet para instalar. 
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col_select = c(l,3), 
n_max = 4) 

En se encargará de rellenar los elementos vacíos con NA, en quiero 

solamente incluir las columnas 1 y 3 en la importación, por ultimo en e 
solo necesito importar 4 filas. 


Por ultimo una librería muy interesante llamada readspss por el nombre 
se deduce que solamente se encargar de abrir ficheros que solo pertenezcan 
al software IBM SPSS y claro dentro de las extensiones son “.sav, .zsav, .por 
y .sav encriptado (con contraseña)”. Por el momento esta en desarrollo y se 
necesita de Rtools para su instalación por lo que hace un poco complejo y si usted 
quiere instalarlo entonces ingrese en esta url https://github.com/JanMarvin/ 
readspss 
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2.2.2 Exportar 

foreign 

Se comienza con la librería foreign que ya ha sido conocido en importar 
ficheros, entonces ahora nos enfocaremos en como exportar ficheros para el 
software SPSS. La librería por defecto exporta dos ficheros y uno de ellos es un 
documento de texto en formato “.txt”(es posible que usted se halla topado con este 
tipo de fichero). 

¿ Porque exporta un fichero “.txt”? 

La razón es que ahí se almacena la base de datos o los elementos que son 
visibles en SPSS como Vista de Datos(Data View). 

Lo que si debe tener cuidado es en el nombre ya que en si hay dos ficheros 
que el nombre debe ser el mismo pero la extensión no. Si por alguna razón los 
nombre de los ficheros son distintos entonces al abrir el archivo con la extensión 
“.sps” con el software SPSS te generará un error que tiene que ver con que no se 
ha encontrado el otro fichero. La manera correcta es por ejemplo: 

✓ exportar, sps 

✓ exportar.txt 


write.foreign(df, datafíle, codefíle, package) 


df (objeto) Se coloca el objeto que se desea exportar, 

de preferencia data.frame 


datafíle (string) Necesita la dirección donde se almace¬ 
nará la base de datos, fichero con extensión 


(txt). 

dataf ile="c :/datos.txt" 


codefíle (string) Al igual que datafile, és 
el mismo nombre pero la extens 

.e debe tener 
ión debe ser 

(sps) 

codef ile="c :/datos.sps" 



package (string) Por tratarse únicamente del software 


SPSS usar 


package="SPSS" 


Nota importante: Incluir librería en el trabajo actual, si ya ejecutó 

ESTE CÓDIGO POR FAVOR OMITIR 
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r 

> library (foreign) 

# si deseas actualizar libreria 

> install.packages {" foreign" ) 
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haven 

Como se había hablado anteriormente de la librería externa llamada haven, 
también euenta eon una funeión que permite exportar a “.sav y .zsav”. Para 
exportar euenta eon argumentos muy limitados eomo por ejemplo eseoges si se 
exporta de forma eomprimida (.zsav) o no, aquí toma eneuenta la extensión que 
se esta nombrando. Por otro lado también aeepta la fuente de los datos a exportar 
eomo “data.frame”. 


write_sav(data, path, compress) 


data 


(objeto) Se eoloea el objeto que se desea exportar, 
de prefereneia data.frame 


compress (booleano) Si compre ss=FALSE 


path 


entonees usar 
la extensión a “.sav”, easo eontrario se esta di- 
eiendo que use otra extensión “.zsav”. 

(string) Neeesita la direeeión donde se almaeena- 
rá la base de datos, si compress=TRUE entonees 


eambiar la extensión a “.zsav”( refereneia a eom- 
primido), easo eontrario solo usar “.sav” 


Nota importante: Incluir librería en el trabajo actual, si ya ejecutó 

ESTE CÓDIGO ANTERIORMENTE POR FAVOR OMITIR . 


r 



> install.packages { "haven" ) 

> library (haven) 

4 ^ 
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(3.3) Excel 

Por tratarse de un software muy popular sobre todo seneilla interfaz, sin 
embargo el únieo ineonveniente seria su preeio por usar o mejor dieho la lieeneia 
por equipo, estos preeios varían de aeuerdo a la versión del software. 

Las versiones de Exeel que almaeenan la base de datos son dos “.xls” y “.xlsx”, 
lo que seria de gran importaneia eonoeer para poder usar de aeuerdo a las librerías 
que ofreee la eomunidad de R. 

( 1 . 3 . 1 ) Importar 

readxl 


read_excel(path, sheet, range,col_names,na) 

De la librería tidyverse quien tiene un montón de funeiones que son muy 
útiles para la eieneia de datos, en esta oeasión nos enfoearemos en eomo importar 
fieheros de Exeel. Esta librería ofreee también eambiar valores nulos o vaeíos y la 
opeión de la eantidad de elementos a eargar. 


path (string) Se eoloea la direeeión donde esta el ar- 

ehivo Exeel. 


sheet (str 

date 

pío 

ing) Haee refereneia 
)s (se eneuentra en l¿ 

"tabla","Hojal" 

a la hoja donde esta los 
i parte inferior), por ejem- 

range (string) Se debe eoloear los 

y numero que Exeel usa ps 
los elementos, por ejemplo 

nombres de eolur 
ira haeer referene 

range="B5 :E5" 

ana 

ia a 

col_names (booleano) Si es TRUE, estará dieiendo que la pri¬ 
mera fila eontiene los nombres de las eolumnas. 
na (string) Sirve para rellenar elementos vaeíos. 
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Nota importante: Instalar primero la librería 

r 

# librería completa 

> install.packages { "tidyverse" ) 

# instalar solo para excel 

> install.packages { "readxl" ) 

# 

4 



También se puede redueir el eódigo si solo usamos range en vez de sheet. Sola¬ 
mente se neeesita el nombre de la hoja de datos, seguido un signo de admiraeión 
y luego eseribimos el rango. 

> read_excel ( file.choose () , 

range = "tabla!B4:FIO" 
col_names = T) 
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( 2 . 3 . 2 } Exportar 

writexl 


write_xlsx(x, path, col_names,format_headers) 

Se presenta una nueva librería llamada writexl, su úniea funeión es eseribir 
un arehivo xlsx para versiones superiores de Exeel 2010, así que será de mueha 
utilidad si solo quieres exportar tu base de datos de R a Exeel. 


X 

path 

[objeto) Se eoloea el objeto que tiene la base de 
datos. 

[string) Coloear la direeeión donde 
deseas guardar el arehivo, ejemplo 


path="c :/carpeta/exp.xlsx" . 

col_names (booleano) Si es TRUE, estará dieiendo que la pri¬ 

mera fila eontiene los nombres de las eolumnas. 

format_headers 

[booleano) Si en col_names=T y 


format_headers=T , estarás permitiendo que se 

eseriba los nombres en negrita y centrado. 



Nota importante: Instalar primero la librería 

r 

# Instalar librería 

> install.packages { "writexl" ) 

# 

# abrir librería 

> library (writexl) 





I No se exporta los nombres de las filas “row.names” a Exeel. 



128 
































3. EXCEL 


129 



129 













Base de Datos 


(ÍTl) MYSQL 

Como dice wikipedia. “MySQL es un sistema de gestión de base de datos 
relaeional (RDBMS) de eódigo abierto, basado en lenguaje de eonsulta estrueturado 
(SQL)”. Debido a su gran utilidad en trabajos, R ha deeidido ineluir una librería 
llamada RMYSQL. 
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Figura 8.1: COMO CONECTAR EN RMYSQL 


controlador 



port = 3306j 


) 

Nota: los valores dados son un ejemplo, usted trate de cambiarlos 

En la página https://remotemysql.com/ ofrece un servidor remoto con 
100MB de espacio libre y además se puede crear tantas tablas como se de¬ 
sea. En este libro se tomará como referencia esta web para simular una conexión 
remota no local. 
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Figura 8.2: COMO REGISTRARSE EN remotemysql 

Create Account 


Login Create Account Forgot Password? 


FREE MYSQL 


G*t a free r«mot« MySOL daubase 


By signing up to use this Service you agree to our Terms and Conditlons 


Una vez creada 
la cuenta, use 
login e inicie 
sesión 


7,'^ OASHBOARO 


Í^O 0*TABASeS^ 


LEARN tvlYSQL 


Databases 


All your databases are listed beiow. Create news ones. upto a máximum of 3, with the button 
at the bottom. 


UStSMAME 


CRi_-.ytü DATE 


por favor guarde ios 
datos: 

Username: 

DataBase: 

Password: 


LSeipCIKMv 0.02 MS 2020-03-13 00:44:53 



Nombre de la tabla; TABLA Agregar 4 t columna(s) Continuar 
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Bien, para comenzar se necesita instalar lo siguiente: 



> install.packages { "RMySQL" ) 


# library(DBI) 

> library (RMySQL) 




(l.l.l) Conectar 

Una vez registrado en la página web y obtenido los datos como Username, 
Database y Passsword. Entonces nos conectamos de la siguiente manera: 


> con = dbConnect (RMySQL: :MySQL 0, dbname="LVlpC JKMv" , 

^ username="LVlpC JKMv" , 

password=" IGxLtEGSQt" , host="remotemysql .com" ) 


Importante: La conexión dura muy poco así que por cada 
5 minutos intentar nuevamente ejecutar este objeto “con”, 
caso contrario no se podrá hacer consultas. 


Como nuestra tabla se llama “TB” y queremos saber los elementos que con¬ 
tiene, bueno en R hay dos maneras de hacer este proceso: mediante consulta 
(dbGetQuery) o por una función sencilla(dbReadTable). Ambos retornan una 
clase tipo data.frame. 




> tb=dbReadTable (con, "TB" ) 

#-> verificar <- 

> tb 

[1] ID Edad Genero Vota 
<0 rows> (or 0-length 
^ row.ñames) 

> class (tb) 

[ 1 ] "data.frame" 


> sql <- "SELECT * EROM TB" 

> tb = dbGetQuery (con,sql) 

#-> verificar <- 

> tb 

[1] ID Edad Genero Vota 
<0 rows> (or 0-length 
^ row.ñames) 

> class (tb) 

[ 1 ] "data.frame" 
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La tabla “TB” no tiene ningún elemento, únieamente genera un reporte indiean- 
do que se tiene 0 filas. Si deseas agregar elementos a la base de datos remota, en 
RMySQL hay una funeión que funeiona eontrario al dbGetQuery y que es llamado 

dbSend3uery(con,consulta). 
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2.1.2 Insertar 


> con- 

dbSendQuery(connj 


statement) 



77 

'mujer' 

'no' 

16 

'hombre' 

'no' 


Intentaremos erear un objeto “sql”eon el objetivo de eseribir la sintaxis SQL y 
que más después nos servirá para haeer eonsultas. La funeión más efeetiva en R 
es la llamada paste(). 


I Nota: Primero debes saber que tipo de valores reeibe eada 
eolumna: Edad(numerieo), Genero (ehar),Vota(ehar) 


"INSERT INTO TB() VALUES()" 


Edad(int) 


> tmp <- "INSERT INTO TB(Edad)" 

> Ib <- paste (tmp, "VALUES (", tab$x[ 1 sep=" " ) 

> Ib 

[1] "INSERT INTO TB(Edad)VALUES(34)" 


Genero(char) 


> tmp <- "INSERT INTO TB(Genero)" 

> Ib <- paste (tmp, "VALUES(' ",tab$y [1] ,"')", sep="") 

> Ib 

[ 1 ] "INSERT INTO TB(Genero)VALUES('hombre')" 


Vota(char) 
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> tmp <- "INSERT INTO TB(Vota)" 

> Ib <- paste (tmp, "VALUES tab$z[ 1 sep=" " ) 

> Ib 

[1] "INSERT INTO TB(Vota)VALUES('no')" 


Has notado que tanto los valores de Vota eomo Genero van entre eomillas 
simples y esto es simplemente porque ambos reeiben solo earaeteres (ehar), esto 
es importante ya que si no lo usas y ejeeutas el eomando en SQL es muy probable 
que te genere un error. 

Se intentará generar valores aleatorios en R usando la super funeión sample() 
que además funeiona eon earaeteres. 


> al <- function(i = 1) { 

edad <- sample(x = c (20:54) ,s ize = i, replace = T) 
genero <- sample(x = c ( "hombre" , "mujer" ),size = 

-->■ i, replace = T) 

vota <- sample(x = c ( "si" , "no" ),size = i,replace = T) 

return(data.frame ( "x"= edad, "y"=genero,"z"= vota)) 

} 

> tab <- al (i = 30) 


Usaremos la siguiente funeión siguiente para enviar los 30 datos: 


y dbSendQueryCconn, statement) 


for (i in seq len(nrow (tab))){ 

sql = "INSERT INTO TB(Edad,Genero,Vota) VALUES(" 

Ib = paste (sql, tab$x[i], "," , "'" ,tab$y[i], "'" ,"," 
^ ,"' ",tab$z [i] ,"'",")" ) 

dbSendQuery (con,statement = Ib) 


El primer valor que eontiene Ib es: 


[ 1 ] 

^ "INSERT INTO TB(Edad,Genero,Vota) VALUES(34,'hombreno')" 
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Para ver si ha procedido con la subida de los datos 


I Nota: recuerda ejecutar el objeto con por si genera un error 
similar a object 'con' not found 


> 

tabla <- 

dbReadTable (conn = con,ñame = "TB") 

> 

tabla 




ID Edad 

Genero 

Vota 

1 

1 51 

mujer 

no 

2 

2 51 

hombre 

no 

20 

20 51 

hombre 

si 

29 

29 23 

hombre 

si 

30 

30 34 

mujer 

si 
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( 3 . 1 . 3 } Editar 

Como en el easo anterior que usamos dbSendQuery, también nos sirve para 
editar un elemento de una determinada tabla ya que se esta hablando de haeer 
una eonsulta y solamente se eambiará “INSERT INTO” por “UPDATE .. SET”. 


"UPDATE TB SET COll=?, COl2=?, WHERE ID=?;" 


Por ejemplo quiero eambiar la fila 24 que eontiene 


I Nota: reeuerda ejeeutar el objeto con por si genera un error 
similar a object 'con' not found 


> dbGetQuery (conn = con, "SELECT * EROM TB WHERE ID = 24 ") 
ID Edad Genero Vota 
1 24 49 hombre si 


Intentaremos haeerlo eon otra funeión que simplifiea lo de paste() en lo que 
respeeta al gran espaeio que se oeupa para definir la mezela entre objetos y 
earaeteres. 


sprintf("%s %s %s ", uno,dos,tres) 



Verifieamos 
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> dbGetQuery (con, "SELECT * EROM TB WHERE ID = 24 ") 
ID Edad Genero Vota 
1 24 54 mujer si 
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( 4 . 1 . 4 ) Eliminar 

La sintaxis para eliminar un determinado elemento en sql es el siguiente 


"DELETE EROM TB WHERE condición; 


Por ejemplo quiero eliminar la fila 24 y eso seria así 


> dbSendQuery (con, "DELETE EROM TB WHERE ID = 24") 
<MySQLResult: 569974448, 4, 0> 


Verifieamos 


> dbGetQuery (con, "SELECT * EROM TB WHERE ID>21 AND ID<27") 



ID 

Edad 

Genero 

Vota 

1 

22 

52 

mujer 

si 

2 

23 

39 

hombre 

si 

3 

25 

53 

hombre 

si 

4 

26 

52 

mujer 

no 


Si intentas eliminar una eolumna, usa lo siguiente: 


"ALTER TABLE TB DROP COLUMN col;" 


TB Nombre de la tabla 
col Nombre de la eolumna 


■ Importante: La eolumna que intentas eliminar no debe 
tener relaeion eon otra tabla o sino te generaría un error 


Pero si su easo es que quiere eliminar la tabla por eompleto, use 


"DROP TABLE TB;" 


O solamente elimine el eontenido de la tabla pero no la tabla en si 


"TRUNCATE TABLE TB; " 
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Creando Reportes 


(ÍTl) MSWord 


Existe una librería llamada offícer que permite generar un arehivo .docx 
eompatible eon las versiones aetuales de Word y lo mejor es que no es neeesario 
instalar el software Mierosoft offiee. Es una librería externa y así que se neeesita 
instalar lo siguiente. 


> install.packages { "offleer" ; 


, Es reeomendable tener la versión de R aetualizado 


Algunas funeiones muy importantes en offieer: 

Cuadro 9.1: Ofñcer funciones 


función 


read_docx() 

body_add_par(x,“ ”,style,pos) 
body_add_table(x,valué,style) 
body_add_gg(x,valué,width,height,style) 
body_add_inig(x, src, width, height, style) 


descripción 


inieiar documento 
agregar párrafos 
agregar tabla 

agregar gráficos (solo ggplot) 
agregar gráficos externos 
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Algunos estilos comúnmente usados 


Cuadro 9.2: Ofñcer style 


1 style 

descripción I 

“Normal” 

texto normal 

“heading 1” 

primer subtitulo 

“heading 2” 

segundo subtitulo 

“heading 3” 

tercer subtitulo 

“ table_template ” 

estilo 1 en tablas 

“Table Professional” 

estilo 2 en tablas 

“Light List Accent 2” 

estilo 3 en tablas 

“table title” 

titulo para tablas 

“graphic title” 

titulo para gráficos 


Si usted tiene instalado Rstudio intente crear un nuevo fichero R script teclean- 
Fl+fiÑT] ) o desde su IDE preferido del lenguaje R trate de crear un nuevo 
fichero R script, guárdelo. Una vez que tiene un fichero “documento.R” dentro de 
él escriba lo siguiente: 


do ( |ctrl 


# librerías 

# - 

> library (offleer) 

> library (magrittr) 

> library (ggplot2) 

> library (plotrix) 

#- 

> directorio <- "D:/reporte/word/" 

* Q 

> sp <- c (1,1, 1, 4,4,4, 4, 4, 4, 4, 3, 3, 3, 3,3, 2, 

2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 ) 

> indicador <- factor (x = sp ,levels = c(l:4), 

labels = cC'Nada Satisfecho", 

"Poco Satisfecho", 
"Satisfecho" , 

"Muy Satisfecho")) 

> tab <- as.data.frame(table (indicador)) 

# - 0 

> gráficos <- ggplot (tab, aes (x=" ", y=tab$Freq, 

f ill=factor (tab$indicador))) + 
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geom_bar (width = 1, stat = "identity") + 

coord_polar ( "y" ) + 
geom_text(aes (label = 

paste (round (Freq/ surtí (Freq) *100,1) , 

posit ion=position_stack (vjust = 0.5))+ 
theme_void (base_size = 18) +labs ( fill=" Indicador " ) 

#- 0 

> fig <- paste (directorio, "figura.wmf" ,sep = "") 

> ggsave (plot = grafico3,filename = fig,device = "wmf", 

dpi = 72, limitsize = T) 

#- 0 

> color <- c ("#526189", "#f6f6f 6", "#d3d9e7","#a3acc5") 

#- 

> fan <- paste (directorio, "figura2.wmf ", sep = "") 

> win.metafile (file = fan,height = 5, width = 10, 

pointsize = 14) 

> fan.plot (x = tab$Freq, labels=as. character (tab$indicador), 

col = color,ticks = 30) 

> dev.off () 

# - 

> párrafo = " Se ha hecho una investigación en una empresa 

que cuentra con 32 empleados, cuyo objetivo es 
saber si están satisfechos en su desempeño laboral 
dentro de la empresa:" 

# - 

> guardar <- paste (directorio, "archivo.docx" , sep=" " ) 

> do cu <- read_docx() 

> docu <- docu %>% 

body_add_par ( "Reporte ...",style = "heading 1") %>% 
body_add_par ( "Satisfacción Laboral" , 

style = "heading 2") %>% 
body_add_par (párrafo,style = "Normal") %>% 
body_add_table (tab,style = "Light List Accent 2") %>% 
body_add_gg (docu, valué = grafico3, 

style = "centered" , width=5,height=5) %>% 
body_add_par (valué = "Gráfico Pie", 

style = "graphic title") %>% 

body_add_par ("", style = "Normal") %>% #-- nueva linea -- 
body_add_par (párrafo,style = "Normal") %>% 
body_add_par ( "Amabilidad en su atención", 

style = "heading 2") %>% 
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body_add_img (src = fan,height = 3, 

width = 6 , pos = "after" )%>% 
body_add_par (valué = "Gráfico abanico", 

style = "graphic tifie") %>% 

body_add_par ( "" ,style = "Normal") %>% #-- nueva linea -- 
body_add_par (párrafo,style = "Normal") %>% 
body_add_par ( "Representación personal" , 

style = "heading 2") 

> print (docu,target = guardar ) 

En solamente se erea la data, eon la ayuda de table() se ha podido sumar 
de aeuerdo a la eseala dada(l,2,3,4). 

En esa misma data “tab” se ha heeho un gráfieo de torta usando ggplot. 
Presta ateneión en body_add_gg() 

En O se usa ggsave para exportar gráfieo y después se obtiene la refereneia 

(fig) 

body_add_img(src=fig) para mayor ealidad al exportar. 

En es igual al por el motivo que se tendrá que exportar la gráfiea y dieha 
direeeión se almaeena en el objeto fan para después usarlo en body_add_img( 
src= fan) 

En el último eomando print (docu, target) en “target” se eoloea el direetorio 
donde se guardará el fiehero “.doex”, por ejemplo 

target="D:/reporte/word/archivo.docx" 
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Figura 9.1: Diseño al compilar A 


1. Reporte... 


1.1. Satisfacción Laboral 

Se ha hecho una investigación en una empresa que cuentra con 32 empleados, 
cuyo objetivo es saber si están satisfechos en su desempeño laboral dentro de la 
empresa: _ 


indicador 

Freq 

Nada Satisfecho 

3 

Poco Satisfecho 

17 

Satisfecho 

5 

Muy Satisfecho 

7 



Indicador 

I Nada Satisfecho 
I Poco Satisfecho 
I Satisfecho 
I Muy Satisfecho 


Gráfico Pie 

Se ha hecho una investigación en una empresa que cuentra con 32 empleados, 
cuyo objetivo es saber si están satisfechos en su desempeño laboral dentro de la 
empresa: 
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Figura 9.2: Diseño al compilar B 


1.2. Amabilidad en su atención 



Gráfico abanico 

Se ha hecho una investigación en una empresa que cuentra con 32 empleados, 
cuyo objetivo es saber si están satisfechos en su desempeño laboral dentro de la 
empresa: 

1.3. Representación personal 
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(2.2) Markdown 


Para crear reportes de tipo Markdown eon R, es 100 % reeomendable usar el 
software Rstudio por el únieo motivo que tiene eompatibilidad eon pandoe y este a 
su vez eonvierte a formatos eomo “html, pdf y word”. ¿Genial no te pareee? 


Debo haeerte reeordar que la exportaeión a word no es tan buena, en espeeial 
las imágenes que no son en alta ealidad. 


Si estas en esta unidad y aún no has instalado los paquetes en MikTex, 

entonees regresa al eapitulo 1 “Instalaeión” y la subseeeión “Softwares Externos”, 
es importante que hagas este paso para no tener errores de eompilaeión. Si ya lo 
tienes entonees inieie Rstudio y erea un doeumento Rmd(ver figura 9.3) 


Figura 9.3: Crear ñchero Rmarkdown desde Rstudio 


New File 

© 

R Script Ctrl+Shift+N 

Open File... 

Ctrl+C 


!“ 

R Notebook 

Reopen with Encoding... 

Recent Files 



s 

R Markdown... 



R 

Shiny Web App... 

Plumber API... 

Import Dataset 



Save 

Ctrl+S 



Text File 

Save As... 


cpp 

C++ File 

Rename 




Python Script 

Save with Encoding... 



T 

SQL Script 

Save Al! 

Ctrl+Alt+S 


b 

Stan File 

5 # Knit Document 

Ctrl+Shift+K 



D3 Script 

Compile Report... 



d 

R Sweave 

_ Print... 



R HTML 

Cióse 

Ctrl+W 


R Presentation 

Cióse AH 

Ctrl+Shift+V\ 


9 

R Documentation 

Cióse All Except Current 

Ctrl+Shift+Alt+W 




Otro dato importante es que después de guardar el fiehero con ( [ctrlj + fY] ), 


intente abrirlo en eodifieaeión utf-8 para que así permita reeonoeer texto español 
eomo tilde y otros easos eomo la eñe. 
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Figura 9.4: Codiñcación del fíchero global 



Rstudio convierte el arehivo .Rmd a pdf mediante el uso de Pandoe y m^X. 
Como todo documento, siempre tiene su cabecera o la configuración que 
permite definir detalles eomo: 

- Cabecera - 

title: "Reporte" 
author: "Tu nombre" 
date: '2020-03-12' 
header-includes: 

- \usepackage [spanish]{babel} 
output: 

pdf_document: 

df_print: kable 
fig_caption: yes 
toe: yes 

documentclass: article 
classoption: 12pt,letter,twocolumn 
geometry: margin=lin 
lang: es-ES 
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documentclass Clase de doeumento (árdele,book,report,memoir,beamer) 

classoption hay tres: 

tamaño de letra lOpt, 1 Ipt y 12pt. 

tamaño de papel a4paper,a5paper,legalpaper ... 

tipo oneeolumn y twoeolumn. 

geometry la geometría del papel y margenes admitidos(top,left,right), reeomiendo 
dar una revisada a su doeumentaeión http://ctan.dcc.uchile.cl/macros/ 
latex/contrib/geometry/ geometry.pdf y también en el eapitulo 9 seeeión 
3.3 de este libro. 

header_includes Incluir paquetes, si desea que los títulos de las tablas y de 
figuras estén en la parte superior o top en ingles, agrega a continuación: 

\usepackage{floatrow} ,después 

\float Setup [figure] {capposition=top} y por último 
\floatsetup[table]{capposition=top} 

Todo lo que esta dentro de pdf_documcnt permite tanto como incluir toc(tabla de 
contenidos) como títulos en gráficos y tipo de tabla. 


Cuando agregas “showframe” en geometry: margin=2cm, showframe, te per¬ 
mite ver los márgenes del documento. 
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RMarkdown ofrece compilar varios formatos como son: HTML, PDF Y Word 


Figura 9.5: Export 



y Q. 



Knitto HTML 

0 


Knit to PDF 



Knit to Word 


Knitwith Parameters... 


Generar PDF 

La exportación a pdf no funcionará si no tienes instalado los 
softwares MiKTeX y pandoc (descargar ultima versión). Si estas 
en Windows, ambos deben estar en las variables de entorno (path 
and environment).Revise el tema instalación cap 3.3 


(^1.2.1} Texto Normal | 

Los saltos de líneas o líneas vacías juegan un papel muy importante en Mark- 
down, tales permiten separar y crear párrafos. Markdown resulta ser mas sencillo 
para crear artículos rápidos pero sino respetas ciertas reglas pueda que te compli¬ 
ques. 


secciones o encabezados 

Los encabezados se dividen en seis niveles: 
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Cuadro 9.3: Lista de Encabezados 


1 Escribir 

Produce I 

# Encabezado 1 

Encabezado 1 

## Encabezado 2 

Encabezado 2 

### Encabezado 3 

Encabezado 3 

#### Encabezado 4 

Encabezado 4 

##### Encabezado 5 

Encabezado 5 

###### Encabezado 6 

Encabezado 6 


estilos en caracteres 

Para usar itálica simplemente se usa un asteriseo “*texto en itálica*” o un 
guión bajo “_texto en itálica_” pero si al asteriseo se le agrega otro asteriseo, 
esto pasa a ser negrita “**texto en negrita**”. 

También esta el subrayado y Kr^Xofrece su comando 

“ $ \under line{texto subrayado}$” . 

Cuadro 9.4: Lista de estilos 


1 Escribir 

Produce I 

*itálica* 

itálica 

* *negrita* * 

negrita 

* *_itanegrita_* * 

itanegrita 

$ \underline {subrayado}$ 

subrayado 

--tachado-- 

tachado 


**Modo Html** 

Este es un texto en *_itálica_* pero a la vez es <br/> 
**negrita** si se agrega otro Además puedo usar <br/> 

ambos a la vez **_itálica en negrita_** <br/> 

el '<br>' es para saltos de linea <br/> 
en Html <br/> 

**Modo Látex pdf** 

también puedes usar \newline 
otra linea 
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Modo Html 

Este es un texto en itálica pero a la vez es negrita si se agrega otro 
Además puedo usar ambos a la vez itálica en negrita 

el <br > es para saltos de linea en Html 

Modo Látex pdf 

también puedes usar 
otra linea 


listas 

Si estas en un párrafo o eualquier otro easo, da un salto de linea para erear 
la lista. Las listas se erean mediante lo siguiente: un espaeio seguido de un 
guión(número o letra) seguido de un espaeio y después el texto que deseas en esa 
lista, por ejemplo: 
























n 

á 

r 

r 

a 

+ 

0 


r 

u 

a 

1 

n 

u 

i 

e 

r 

a 






















_ 


1 

i 

s 

t 

=1 


1 






























- 


i 

i 

s 

t 

3 


) 
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1 

i 

s 

t 

3 


1 
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1 

i 

S 

t 

3 

\ 

) 


























Los cuadrados representa la separación de espacios creados con la barra espadadora, 
es muy importante que hagas esto 
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Listas 

Digamos un párrafo cualquiera 

- lista a 

- lista b 

- lista bl 

- lista bl.1 

Otra lista 

a. lista 1 

b. lista 2 

- lista bl 

- lista bl.1 


I Digamos un párrafo cualquiera 

. lista a 

. lista b 

o lista b 1 

. lista b 1.1 

Otra lista 

a. lista a 

b. lista b 

o lista b 1 

. lista b 1.1 



¿Le agrada R Markdown? 
Si 
□ No 


También esta la eitas en bloques, presta atención al comando <br> que en 
html es un salto de linea y KlgX es \par. Si exportas a documento pdf, para 
saltos de linea reemplaza <br> por \par: 


> Cita en bloque <br> 
continua en <br> 
otra linea... 

> Cita 

> en bloque 


Cita en bloque 
eontinua en 
otra linea ... 

Cita en bloque 


notas al pie de página 

Esta función también muy importante al erear un doeumento y consiste en 
usar [''!] para haeer refereneia: 
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los otros [^1] también se impri.. 
[^l]:son java,php,Ruby,css 


los otros ^ también se impri... 


^ son java,php,Ruby,css 


2 . 2.2 texto matemático 

Hay varios símbolos que permiten imprimir textos matemáticos, por ejemplo si 
deseo incluir un símbolo matemático en la misma linea: $\alpha$, esto generará 
el símbolo a en la misma linea. 


Con un o: = 0,05 se ... 

= 2x + y 

Aquí otra forma: 

2 

n = - 


Con un $\pmb{\alpha}= 0.05$ se ... 
\ [ 

a"^ { 2 } = 2x+y 
\] 

Aquí otra forma: 

$$ 

n = \frae{2}{3} 

$$ 


El símbolo \pmb {} permite convertir únicamente el texto matemático en negri¬ 
ta. 


(3.2.3) código _ 

Existe una lista de infinidades lenguajes de programación y Rmarkdown tam¬ 
bién cuenta con la función de incluir la sintaxis de dicho lenguaje para ser 
mostrado en el documento. 


En una linea va un 'codigo' simple 
python 

import statistics as stad 

tr = [32, 13, 25, 36, 56, 24, 11, 28, 45, 31,23,38] 
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print(stad.quantiles(tr)) 
#[23.25, 29.5, 37.5] 


'html 

<button type="button">Boton</button> 


En una linea va un codigo simple 


import statistics as stad 

tr = [32, 13, 25, 36, 56, 24, 11, 28, 45, 31,23,38] 
print (stad . quantiles(tr)) 

#[23.25, 29.5, 37.5] 


<button type="button">Boton</button> 
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(4.2.4} figuras 

Librerías R importantes que se deben de ineluir dentro del doeumento: 
Figura 9.6: Librerías importantes RMarkdown 


'''{r ,warning=FALSE} 
library(knitr) 
library(ggplot2) 
library(plotrix) 


y en el direetorio se eneuentra así 


exportar 

markdown_flles 
-^gráfico, png 
—«markclown. Rmd 
—«Rplot.png 


locales 

En el direetorio tengo dos imágenes: grafieo.png y Rplot.png 
Intentaré usar esas imágenes para ineluir en el doeumento aetual: 


'''{r img, echo=TRUE,out.width="45%",fig•cap="grafico" , 
fig.pos="!htbp",fig.align='center'} 

include_graphics("gráfico.png") 


hago referencia a la figura \ref{fig:img} 


lo que se ha heeho es aplicar reducción del tamaño de la imagen de manera 
proporcional (out.width) y después la posición precisa donde quiero que se 
encuentre (fíg.pos). 
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Para mas información por favor vi¬ 
site la tabla 9.21 


creadas 


Aquí se necesitarán las librerías pero primero intentemos crear nuestro marco 
de datos y se muestra a continuación: 



Nuestro marco de datos es tab y con ello intente hacer gráficos como por 
ejemplo. 


'''{r graf, echo=FALSE,out.width="4 5%" , fig•cap=" Gráfico Likert", 
fig.pos="!htbp",fig.align='center'} 

ggplot(tab,aes_(x="",y=tab$Freq,fill=factor(tab$indicador)))+ 
geom_bar(width = l,stat = "identity")+ 
coord_polar("y")+ 

geom_text(aes(label=paste(round(Freq/sum(Freq)*100,1),"%")), 
position=position_stack(Vjust = 0.5))+ 
theme_void(base_size = 18)+labs(fill="Indicador") 
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Figura 9.7: ggplot en Rmarkdown 



Indicador 
I Nada Satisfecho 
I Poco Satisfecho 
I Satisfecho 
■ Muy Satisfecho 


Figura 1: Gráfico Likert 


5 . 2.5 tablas 

Las tablas creadas en markdown solo eonsiste en lineas vertieales y horizonta¬ 
les, lo que haee muy seneillo la manipulaeión. 


crear 

Se intentará erear tablas manualmente, es importante agregar que también se 
puede agregar texto matemátieo y alineaeión por eada eolumna. 

Tabla normal sin alinear 

Cuadro 9.5: Tabla 
normal 


H1 H2 H3 H4 

a 14 23 23 

2 1 


Tabla alineada por eolumnas 


H1 H2 H3 

a 14 23333 

a b c 


Cuadro 9.6: Tabla 
alineada 


Tabla normal sin alinear 

1 H1 1 H2 1 H3 

1 H4 1 

1 1 1 
|$\alpha$| 14 | 23 

1 1 

1 23 1 

12 II 

1 1 1 

Table: Tabla normal 


Tabla alineada por 

columnas 

izquierda centro 

1 derecha| 

1 • 1 • 

1 $\alpha$ 1 14 

1 • 1 

1 23333 1 

1 **a** 1 **b** 

* *_c_* * 

Table: Tabla alineada 
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librería 

En la figura 9.6 agregar esta librería 


library(kableExtra) 


Una vez agregado neeesitamos nuestra data tab (vea el Listing 1) y haga lo 
siguiente 


{r tabla,echo=F} 

kable(tab,format="látex",booktabs=T,align="c", 

caption="Tabla A")%>% 
kable_styling(latex_options ="hold_position")%>% 
column_spec(1,bold = T,color = "black") 

Si quiere ver la referencia (vease **tabla \ref{tab:tabla}**) 


Cuadro 3: Tabla A 


indicador 

Freq 

Nada Satisfecho 

3 

Poco Satisfecho 

17 

Satisfecho 

5 

Muy Satisfecho 

7 


Si quiere ver la referencia (vease tabla 3) 
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6 .2.6} bibliografíaT 


Las referencias de documentos como:libros,artículos,revistas,enlaces y otros. 
Son almacenados desde un fichero externo llamado bibliografía.bib(no uses tilde). 


para saber como obtener referencias desde software visite la sección 3.51 . Primero 
tenemos que agregar más elementos a nuestra cabecera: 

- Agregar a Cabecera - 


bibliography: bibliografía.bib 
csl: apa-6th-edition.csl 
output: 

pdf_document: 

citation_package: natbib 


citation_package es el paquete con el cual se va a procesar la bibliografía, 
existen dos “natbib y biblatex” 

El csl es el estilo que se le dará a nuestras referencias y zotero ofrece varios 
estilos, por favor ingrese en esta dirección https://www.zotero.org/styles o este 
otro https://github.com/citation-style-language/styles y descarga el que más 

se adapte a sus necesidades. 

Por ejemplo tengo la siguiente bibliografía: 


exportar 


I markdown files 


—•bibliografía.bib 
—•apa-6th-edltion.csl 
^gráfico.png 
^markdown. Rmd 
—«Rplot.png 


_ bibliografía.bib _ 

@article{khan2020, 

tifie = {Level of satisfaction regarding 

volume = {70}, 

issn = {0030-9982}, 

doi = {10.5455/JPMA.10977}, 

pages = {452--456}, 
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number = {3}, 

journaltitle = {{JPMA}. The Journal of 
shortjournal = {J Pak Med Assoc}, 
author = {Khan, Muhammad Lakhmir and ... 
date = {2020-03}, 
pmid = {32207424}, 

keywords = {Level of satisfaction, ...} 


Hago las siguientes refereneias y en el último ereo un eneabezado 
“# Referencia” unieamente para imprimir la bibliografía 

@khan2020 también incluyo el término... 

El autor @khan2020 también ... 

El autor [@khan2020] también ... 

El autor [@khan2020, pp. 453-454] también ... 

# Referencias 

Compila el doeumento haeiendo elie en el ieono ^ ” y elija pdf(ver figura 
9.5) E intente usar natbib y biblatex en citation_package 


output: 

pdf_document: 

citation_package: biblatex 
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Figura 9.8: Natbib vs Biblatex 
(a) natbib 

Khan et al. también incluyo el término... 

El autor Khan et al. también ... 

El autor [Khan et ah] también ... 

El autor [Khan et ah, pp. 453-454] también .. 


Referencias 

Muhammad Lakhmir Khan. Misbah Glious. Imran Amjad. Mimazza Nouman. and Irum 
Yaqoob. Level of satisfaction regarding physical therapy Services in district pooiich, azad 
jammu kaslimir. 70(3):452 456. ISSN 0030-9982. doi: 10.5455/JPMA.10977. 

^ ^ ^ k Á íAAÍ 


(b) biblatex 


* Khan y col. [1] también incluyo el término... •* 

k < 

^ El autor Khan y col. [1] también ... ^ 

^ El autor [1] también ... i 

> El autor [1, pp. 453-454] también ... 


Referencias 

[1] Muhammad Lakhinir Khan y col. “Level of satisfaction regarding physical therapy 
Services in district Poonch, Azad .lamnin Kaslimir*’. En: JPMA. The. Journal of the 
Pakistán Medical Association 70.3 (mar. de 2020). págs. 452-456. ISSN: 0030-9982. DOI: 
10.5455/JPMA.10977. 

^ _ A - ^ _A_A 
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(3.3) Látex 


Hay IDEs del lenguaje R que tienen ineorporado la funeión llamada R Sweave 
o mejor conocido en MEXcomo knitr. Si usted tiene Rstudio instalado, inicie y 
haga igual como se muestra en la imagen. Para guardar la ventana de la derecha 
presione 


Ctrl 



|0 -|08: 


9 

RScript Ctrl+Shift+N 

r R Notebook 

e 

R Markdown... 


R 

Shiny Web App 


9 

Plumber API... 



Text File 


<Vf 

C++ File 


u 

Python Script 


u 

SQL Script 


« 

Stan File 


O] 

03 Script 



R Sweave [\ 

1 

¿i 

Create a new R 


0 

Sweave document 


TfC 



0 

R Documentation 


L/atex es un sistema de composición avanzado de texto, su función es crear 
un documento de alta calidad como son: libros, artículos, reportes, cartas y otros. 
Knitr es una librería del lenguaje R que permite la intercomunicación entre Rscript 
y Látex, por medio de un fichero “.Rnw”. 

El inconveniente al usar Rstudio es que no compila las bibliografías por lo que 
se recurrirá a otros softwares libres como TeXmaker, TeXnicCenter y otros. Es 
importante dejar la bibliografía para el final caso que al compilar con Rstudio 
genera un fichero .tex y éste se lo compilará con los softwares mencionados 
anteriormente. 

Para tratar de entender como es que funciona ETjX, se presentará la estructura 
de un documento. 
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Confíguración 


\documentclass [llpt] {article} 
\usepackage [utf8] {inputenc} 
\usepackage [ spanish] {babel} 

\usepackage { amsmath } 

\usepackage { graphicx } 

\usepackage { microtype } 

\usepackage [xllnames,bable] (xcolor } 
\usepackage { hyperref } 

\usepackage { geomet ry } 


Cuerpo 


\begin { document } 

\section{Hl } 

\subsection{H2 } 

\subsubsection { H3 } 

% - este es un comentario — 

\section{Hl } 

\subsection{ H2 } 

\subsubsection { H3 } 

\end{ document } 


I Importante: Si por casualidad te genera error al momen¬ 
to de compilar, instala MiKTeX desde https://miktex.org/ 
download 


Se trabajará con la parte del cuerpo que es donde se comienza a redactar 
el documento. Muy bien que tal si empezamos con un comando que permite la 
entrada de código R. 


<< >> = 

@ 
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Figura 9.9: Geometría Látex 


paperheight 


left 

(inner) 


paper 



paperwidth 


debajo del paquete \usepackage{geometry } agrege este eódigo, reeuerde que 
esto define la geometría de todo el doeumento. 

\geometry { 

paper=a4paper, 
left=2.5cm, 
right=3.8cm, 
top=l.5cm, 
bottom=l.5cm, 
heightrounded, 
marginparwidth=51pt, 
marginparsep=17pt, 
headsep=24pt, 

} 


Si desea verificar la geometría actual de su documento, agregue este paquete 
después de geometry. Después compile y observe 

\usepackage { layout } % paquete 

\makeatletter 

Xrenewcoitimanci* {\lay@value} [2]{% 

\strip@pt\dimexprO . 351459\dimexpr\csname#2\endcsname\relax\relax inin% 

} 

\makeatother 
\begin { document } 

\layout % crea una pagina con la geometría 
\end{ document } 


Si desea elimine el paquete y el comando \ layout para su normalidad. 
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(1.3.1) Textos 

Lo s textos en MTjXson muy seneillos y es eomo eseribir en un bloe de notas ya 
que no es posible observar como es el diseño o el texto que actualmente se esta 
escribiendo. A continuación se presentará el tamaño de letra: 


Cuadro 9.7: Tamaño de texto 


Tipo de letra 

Escribir 

lOpt 

llpt 

12pt 

Produce 

{\tiny Tiny} 

5pt 

6pt 

6pt 

Tiny 

{\scriptsize Script} 

7pt 

8pt 

8pt 

Script 

{ \footnotesize Foot } 

8pt 

9pt 

lOpt 

Foot 

{\small Small} 

9pt 

lOpt 

llpt 

Small 

{\nonnalsize Normal} 

lOpt 

llpt 

12pt 

Normal 

{ \large large} 

12pt 

12pt 

14pt 

large 

{ \Large Large} 

14pt 

14pt 

17pt 

Large 

{\LARGE Large} 

17pt 

17pt 

20pt 

Large 

{ \huge huge } 

20pt 

20pt 

25pt 

huge 

{ \Huge Huge } 

25pt 

25pt 

25pt 

Huge 


Nota: Los 10,11 y 12pt se encuentra en la clase de docu¬ 
mento \documentclass [a4paper,12pt]{article} 
Importante: Las llaves sirven para indicar el límite del 
texto a convertir. 


Hay algunos comandos que permiten hacer que el texto sea en negrita, itálica 
o cualquier otro. 


Cuadro 9.8: Estilo de texto 


1 Escribir 

Produce I 

{\rm Román } 

Román 

{\em Enfático} 

Enfático 

\textbf {Negrita} 

Negrita 

\textit {Itálica} 

Itálica 

{\sf Sans Serif } 

Sons Serif 

\underline { Subrayado } 

Subrayado 
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Párrafos 

Los comandos que permiten erear párrafos son: 

Cuadro 9.9: Párrafos 


1 Escribir 

Produce I 

\paragraph {Titulo} ... 

Titulo 

\subparagraph {Titulo} ... 

Titulo 


Xdocumentclass [llpt] {article} 
\usepackage [utf8] {inputenc} 
\usepackage { amsmath,amssymb} 


\begin { document } 

\section{Hl} 

\paragraph{ Párrafo 1} 

En cada viaje Mr. X sigue siendo un escritor ... 

\subparagraph{ Sub párrafo 1} 

Uno de sus viajes Mr. X tuvo un problema ... 

\paragraph{ Párrafo 2} 

Cada quien entendió a su manera, no obstante ... 

\subparagraph{ Sub párrafo 2} 

Siempre decia que la felicidad ... 

\end{ document } 


1 H1 

Párrafo 1 En cada viaje Mr. X sigue siendo un escritor que esta muy 
ancioso de seguir escribiendo nuevas novelas que cuentan cada realidad sub¬ 
jetiva de un hombre quien dio la vida por un momento de felicidad • • • 

Sub párrafo 1 Uno de sus viajes Mr. X tuvo un problema con uno 
de los marines y es que en cuestión, él nunca prestaba atención a los ■ ■ ■ 

Párrafo 2 Cada quien entendió a su manera, no obstante él nunca se daba 
por vencido ni aunque derramara una gota de sangre en su boligrafo ■ ■ ■ 



Sub párrafo 2 Siempre decia que la felicidad es un tiempo muy corto 
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Alinear texto 


Alinear un grupo de textos en EÜ^Xes muy seneillo y fáeil, se usa los entornos 
flushleft, flushright y center “únicamente solo cambia el texto que se encuentra 
dentro del entorno 

\begin{} ..\end{ }” . 


Cí 

cd 

•O 

ct 

■M 


Izquierda 

Produce 

Texto arriba 

N 

Texto arriba 

\begin {flushleft} 

d 


..izquierda 

V 

ti 

..izquierda 

\end{flushleft} 

Texto abajo 

i) 

Ü 

Texto abajo 


Dereeha 


Produce 


co 

•d 


ti 


Texto arriba 
\begin {flushright} 
..derecha 
\end{flushright} 
Texto abajo 


« 


O 


Texto arriba 


Texto abajo 


..dereeha 


Centro 


Produce 



Texto arriba 
\begin {center} 
. .centrado 
\end{center} 
Texto abajo 


ss 

V 

ti 

i) 

o 


Texto arriba 

..eentrado 
Texto abajo 


Espacios 

Para dejar espaeios en Kl^Xtambién usamos eomandos que son seneillos de 
memorizar, las medidas aceptadas son: puntos (pt), pulgadas (in), centímetros 
(cm) , milímetros (mm), (em) y picas (pe) 
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Cuadro 9.10: Espaeios 

Escribir 

Información 1 

\hfill a 
\vfill b 

\hspace {0.2in} c 
\vspace {0.2in} d 
\par e 

El texto a se mueve totalmente hacia la derecha 
El texto b se mueve en su totalidad hacia abajo 

El texto c es movido horizontalmente en 0.2in 

El texto d se mueve vertical(abajo) en 0.2in 

El texto e se escribe en una nueva linea 


Listas 

Las listas en KTEXson de distintas formas: item (itemize),enumeraeion (enumé¬ 
rate) y descriptivo (description). Cada una de ellas con sus respectivos diseños 
que también son editables los iconos o simbolos. 

Para su edición algunos de los simbolos requieren agregar paquetes en MjXÍ 
vease la figura 9.11): 


Figura 9.10: Paquetes importantes 


\documentclass [1Ipt]{article} 

\usepackage [utf8]{inputenc} 

\usepackage {amsmath,array,amsfonts,latexsym,cancel,amssymb} 

\usepackage {textcomp,wasysym} % <- 

\let \Square\relax % importante 
\usepackage {bbding} % <- 


Cuadro 9.11: Símbolos Matemáticos para listas 


\triangle 

A \Box 

□ 

\heartsuit 


\rightarrowtail 

\circledcirc 

@ 

\circledast 

@ 

\boxtimes 

Kl \boxplus 

ffl 

\vartriangleright 

> 

\wasytherefore 

\circleddash 

0 

\multimap 



Nota: si no esta dentro de un entorno matemático usar $... $ (vea la 
sección 3.2) 
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Cuadro 9.12: Símbolos no Matemáticos para listas 


\ding 

{ 47 } 


\ding 

{ 52 } 

✓ 

\ding 

{ 56 } 

X 

\ding 

{ 60 } 


\ding 

{ 54 } 

n 

\ding 

{ 45 } 


\ding 

{ 64 } 

e 

\ding 

{ 70 } 

> 

\ding 

{ 72 } 

★ 

\ding 

{ 73 } 

☆ 

\ding 

{ 116 } 

T 

\ding 

{ 109 } 

O 

\ding 

{ 220 } 


\ding 

{ 226 } 

5 ^ 

\ding 

{ 228 } 

>► 

\ding 

{ 229 } 



Nota: no requieren de $ para usarlo eomo texto normal. 


Modo normal 


in 

cd 

•d 

cs 

■M 

tí 

u 


\textbf { listas forma Item} 
\begin { itemize } 

\item a y b 
\begin { itemize } 

\item sub a y b 
\end{ itemize } 

\item b y c 
\end{ itemize } 

\textbf { listas número} 

\begin { enumérate } 

\item a y b 
\begin { enumérate } 

\item sub a y b 
\item sub c y d 
\end{ enumérate } 

\item b y c 
\end{ enumérate } 

\textbf { listas descriptivo} 
\begin { description } 
\item[Flor] Parte de planta 
\item[Ave] Animal vertebrado 
\end{ description } 


listas forma ítem 

• ayb 

- sub ayb 

• by e 

listas número 

1. ayb 

a) sub ayb 

b) sub e y d 

2. by e 

listas descriptivo 
Flor Parte de planta 
Ave Animal vertebrado 
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Cambiando símbolos, si quieres usar [label=] debes primero agregar este 
paquete 

\usepackage{enumitem} donde se eneuetra tus paquetes(ver figura 9.11) 


\textbf { listas forma ítem} 

\begin { itemize } 

\item[$\checkmark:$] a y b 
\item[$\bigodot$] b y c 
\end{ itemize } 

co 

usando \textbf { label } cd 

V 

\begin { itemize } [label=$\bigstar$] 5 

\item a y b 
\begin { enumérate } 

\item uno 
\item dos 
\end{ enumérate } 

\item c y d 


listas forma ítem 

✓ a y b 
O by e 
usando label 

★ ayb 

1. uno 

2. dos 

★ e y d 
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2 . 3 . 2 ) 


Ecuaciones 


Figura 9.11: Paquetes importantes 


\documentclass [1Ipt]{article} 

\usepackage [utf8]{inputenc} 

\usepackage {amsmath,array,amsfonts,latexsym,cancel,amssymb} 


Lo enriquecedor y maravilloso de KTjXes la forma como imprime las ecuaciones, 
a continuación en la siguiente tabla se muestra algunos símbolos más usados en 
ciencias matemáticas 


Cuadro 9.13: Algunos símbolos matemátieos 


\alpha 

a 

\epsilon e 

\leq < 

\cong = 

\pi vr 

\beta 

P 

\theta 0 

\geq > 

\neq 


\phi (j) 

\gainma 

7 

\lambda A 

\in G 

\& 

& 

\delta 5 

\delta 

(5 

\mu // 

\not \in ^ 

\$ 

$ 

\Omega Q. 

\sigma 

a 

\pm ± 

\not = ^ 

\% 

% 

\therefore 


Nota: Para escribir un símbolo como texto use el dolar, ejemplo $\alpha$ 


Cuadro 9.14: Funeiones y Operadores 


\sigma '^{2} 


\ln _{b}{a} 

Irift a 

32_{2} 

322 

\dfrac {b }{ a } 

b 

a 

\sum _{b}''{a} n_{i} 


\tfrac {b }{ a } 

b 

a 

\sqrt [n]{12} 

Á/l2 

\lim _{a \rightarrow b} 

lím 

\int _{b}'^{a} 2x 

/:2x 

\iint _{b}'^{a} 2x 

ir 2a: 

\prod _b''a 
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Cuadro 9.15: Sombreros Matemáticos 

\dot {a} ó \check {c} c \tilde {d} d \vec {d} d 

\ddot { b } b \grave { s } s \breve { c } c \widehat { ab } ab 

\hat { \beta } /3 \acute {d} d \bar {d} d \widetilde {ab} ab 

Nota: Para mejorar el estilo, usar $\displaystyle \dot{a} $ . 

El espaeio en modo matemátieo es $ \hat {a} \; \; \bar {b} $ y genera a b 


Por ejemplo ay el [3 



Por ejemplo $\alpha$ y el $\beta$ 

\[ 

\bar {X} =\df rae { \sum_{ 1=1} {n} x_i } {n } 

\] 

también se usa 

$$\sum_{b}''{ a } n_{i}$$ 

mejora el diseño con displaystyle 

$\displaystyle\lim_{a \rightarrow b}$ 


h 

0) 

tí 

i) 

Ü 


X = 


E n 

^=l 


n 


también se usa 


b 

mejora el diseño eon dis¬ 
playstyle lím 

a^b 


Ecuaciones alineadas cortas 


Usamos el entorno de align para alinear eeuaeiones matemátieas. Cuando usa 
\begin{align*} . . . \end{align*} eon asteriseo estará omitiendo refereneias. 
Para usar el texto en negrita usar \pnib {} 

He aquí un texto que bien pudo ser un párrafo ... 

\begin{align*} 

\pmb{\hat{ \beta }} &= \dfrae{\pmb{S_{xy}}} {\pmb{S_{xx}}} \\ 
\pmb {\int_{ 0 } "^2 } x"'{2}dx &= \dfrac{8}{3} 

\end{align*} 

Recuerda que el texto matemático esta en el centro 


He aquí un texto que bien pudo ser un párrafo ... 



Reeuerda que el texto matemátieo esta en el eentro 
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También se encuentra el entorno \begin{equation}. . . \end{equation}, ma¬ 
yormente los uso para ecuaciones fundamentales por el motivo que no acepta & 
para su alineación, ademas la ecuación a escribir tiene que ser de una sola linea. 

Cuando intentemos usar \begin{align}. . . \end{align} con asteriscos, sig¬ 
nifica que no hay referencias y no imprimirá el número de la ecuación 


primera ecuación con referencia 
\begin {equation} 

S_{xx} = \sum (x_{ i }-\bar {X})''2 
\label {eq:sx} %referencia 
\end{equation} 

Segunda ecuación,por favor no deje lineas vacias 
\begin {equation} 

% es preferible comentar 

S_{xy} = \sum y_{i}(x_{i} -\bar{x}) 

% que a dejarlo en blanco 
\label {eq:sy} 

\end{equation} 

Ahora en otro entorno 
\begin {align} 

\pmb{\hat{ \beta }} &= \dfrae{\pmb{S_{xy}}}{\pmb{S_{xx}}} 

\tag{véase \eqref {eq:sy} y este \eqref {eq:sx} }\\ 

\label {eq:lineal} 

\end{align} 

Para referencias use \ref{eq:sy} al igual que en el otro \ref{eq:sx}. 
Pero también tenemos la ecuación general \ref{eq:lineal} 


primera ecuación con referencia 


5 . 



2 


Segunda ecuación,por favor no deje líneas vacías 


Sxy = 



Ahora en otro entorno 


^ (véase (3.2)) 

^XX 

(9.1) 

Para referencias use 3.2 al igual que en el otro 3.2. Pero también tenemos la 
ecuación general 9.1 
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Ecuaciones alineadas grandes 

Cuando estas apunto de eseribir expresiones enormes que puede eaber en 
varias lineas, usas lo siguiente: 


Importante: Por favor trate de no dejar lineas vaeias(en 

blaneo). Intente eompilar dos veees para que en refereneias no 
aparezea el símbolo ? 


\begin {multline} 

\pmb{f{x)} = ax'^ {10 }+32+ax''{ 9 }+12x+23+ax''{ 8 }+llx+8+ax’^ { 7 } + 
9x+4+ax''{ 6 }+8x+9+ax’^ { 5 }+8x \\ 

+ 12+ax''{4}+7x+7 + ax''{3}+45x+3+ax''{2}+5x+3 + ax 
\label {eq:enorme} 

\end{multline} 

Referencia con \textbf {\ref{eq;enorme}} 


f{x) = + 32 + ax^ + 12x + 23 + ax^ + llx + S + ax'^ + 9x + 4: + ax^ + 8x + 9 + ax^ + 8x 

+ 12 + ax^ + 7x + 7 + ax^ + 45x + 3 + + 5r + 3 + ar (9.2) 

Refereneia eon 9.2 
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El paquete que permite eolorear “\usepackage [ xlInames, table] {xcolor} 
y este otro “\usepackage { cancel } ” sirve para taehar expresiones. 


Cuadro 9.16: Tachado de expresiones y coloreado 


1 Escribir 



Produce I 

\cancel {a} 



0 

\bcancel {2x^(0}} 




\xcancel {Ox} 



M 

n 

\cancelto {\infty 

} {3_ 

.{1} } 


\textcolor {red}{ 

\int 

{2} } 

/2 

{Xcolor {blue}3x'^ 

{2\alpha } } 

3a;2” 


Nota 1: Caneel funciona en entorno matemá- 
tico(align,multline,equation), caso contrario 
usarlo entre $, por ejemplo $\cancel {a} $. 

Nota 2: El coloreado de texto es usado en cual¬ 
quier lugar, no se necesita de entorno matemá¬ 
tico. 

En align se usa & para determinar su alineación y estas lineas \ \ para escribir 
en el siguiente renglón (En el ultimo no usarlo) 


begin{align} 


a 

&= b 

& 

a 

&= b 

& 

a 

&= b 

& 

a 

&= b 

W 

a 

&= b 

& 

a 

&= b 

& 

a 

&= b 

& 

a 

&= b 

W 

a 

&= b 

& 

a 

&= b 

& 

a 

&= b 

& 

a 

&= b 



end{align} 


\begin {align*} 

\cancel {0}+2x &= \cancelto {1}{a} & \xcancel{Ob} &= 3x \\ 

0 &=\textcolor{blue}{2x} & 0 &= \cancel {\frae{3x}{0}} \\ 

\bcancel{0} &= 2x & 0 &= 0 

\end{align*} 


0 + 2x = ^ 
0 = 2x 
0 = 2x 


M= 3r 



0 = 0 


179 

















180 


CAPITULO 9. CREANDO REPORTES 


Si quiere haeer pequeños espaeios en modo matemátieo use si dupliea, 
tripliea o quintupliea el espaeio aumentará: 


$$ 

x= 2\; \ ; \;\;\;x+b 
$$ 


X = 2 x + b 


Mas información 

Para las eeuaeiones revise este libro en el “eapitulo 4” [1] y también este otro 
[10]. Ambos libros están disponibles en la web y están muy bien detallados. 
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(3.3.3} Tablas 

Mediante librerías 


Hay librerías en R que permiten generar tablas eomo es el easo de kableExtra 
y xtable. Desde la consola de Rstudio o cualquier otro IDE, ejecute el siguiente 
código: 


r 

> install.packages { "kableExtra" ) 

> install.packages { "xtable" ) 





Consolé -/ 

0 

=n 

> install.packages("kableExtra") 




O Recuerda que para escribir código 
R tienes que obligatoriamente usar 
estos símbolos << »= y al final 

@ 


<<label,echo=F,results='asis' >>= 

# aquí escribir todo lo relacionado con R 
@ 


181 











182 


CAPITULO 9. CREANDO REPORTES 


Cuadro 9.17: Argumentos en Tabla 



te “tab:” 


(booleano) si es TRUE imprime el eódigo es- 
erito. 

(ehar) es usado euando echo=TRUE, 
background usar eolor en hexade eimal eomo 

background = '##ecf5fc' 

, (booleano) si es TRUE evalúa la linea que 

eval 1 -j. 

tiene el eodigo 


(ehar) si usas xtable reeomiendo usar eomo 


results 



argumento 

'asis' 



Nota: TRUE es lo mismo que eseribir una T mayúseula. 


I Cuidado: no eonftmdas el símbolo para eomentar, en el 

lenguaje R se usa ^ y para látex es%. 

Una vez instalado, dejamos la eonsola y nos dedieamos al doeumento .Rnw y 
eseribimos lo siguiente eomo ejemplo: 


Xdocumentclass [llpt] {article} 

\usepackage [utf8] {inputenc} 

\usepackage [spanish] {babel} 

\usepackage { amsmath } 

\usepackage { graphicx,wrapfig } 

\usepackage{ longtable,booktabs,multirow} 
\usepackage { array,float,pdfIscape,tabú} 
\usepackage { threeparttable,threeparttablex } 
\usepackage [normalem] {ulem} 

\usepackage { xcolor,colortbl,makecell } 

o_ 

o - 

<<echo=FALSE,warning=FALSE,message=FALSE>>= 
library(knitr) 
library(kableExtra) 
library(xtable) 

options(xtable.comment = FALSE) 

@ 

g, _ 

o 

<<echo=FALSE>>= 
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# - Q 

large <- function(x) { 

pasteo{' { \\Large{\\bfseries ',x,'}}') 

} 

# - 

nombre <- c("el","c2","c3","c4","c5","c6") 
tb = data.frame( 

"x"= sample(1:15,size = 6,replace=T), 
"y"= runif(n=6, min = 8, max = 26 ), 

"z"= sample(30:65,size = 6,replace = T) 

) 

rownames(tb) <- nombre 

f- 

media <- round(mean{tb$x),2) 

@ 

Q_ 

O- 

\begin { document } 

\section { Reporte } 

Intente crear una tabla desde \textbf{R} 


<<tabla,echo=F>>= 

kable (tb, format = "látex" , book;tabs=T, align="c" , caption="Tabla A" , 

row.names=l) %>% 

k;able_styling (latex_options ="hold_position" ) %>% 

column_spec(1,bold = T,color = "black") 

@ 

Se puede referenciar desde este comando: { \bf Cuadro \ref { tab:tabla } } 

\begin { align* } 

\bar{x} &=\cifrac{\sum_{ i=l } ^ { n } x_i } { n } \\ 

\bar{x} &= \Sexpr{ media} 

\end{ align* } 


Intentar con la librería \textbf { xtable } que es 
configurable 

<<echo=F,results='asis'>>= 

tablas <- xtable(x = tb,caption = "tabla loca") 
print(tablas,sanitize.colnames.function = large 
@ 


mas 


O 


<<echo=T,eval=T,background='#ecf5fc' >>= 
ce= c(12,2,3) 
print (2*ce) 

@ 

\end{ document } 
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Una vez escrito todo dale clic al icono del 



para compilar: 




látex. Rnw ^ 


\\ 




>}_ ^ tf*J ' J "*3 

1 \documentclass{article} 

2 \usepackage[utf8]{inputenc} 

3 \usepackage[spanish]{babel} 

4 \usepackage{amsmath} 

5 \usepackage{graphicx,wrapf ig} 

6 \usepackage{longtable,booktabs,multirow} 

7 \usepackage{array,f loapdflscape^tabú} 

8 \usepackage{threeparttable,threeparttablex} 

9 \usepackage[normalem]{ulem} 

10 \usepackage{xcolor, colortbl^makecell) 

11 %=========================================== 

12 - <<echo=FALSE,warning=FALSE,message=FALSE>>= 

13 library(knitr) 

14 library(kableExtra) 

15 library (xtable) 

16 options(xtable.comment = FALSE) 

17 @ 

18 % .. 


19- <<echo=FALSE>>= 



20 - #. 

21- large <- function(x){ 

22 paste0( ‘{\\Large{\\bfseries ’,x^’}}’) 

11:45 Q (Top Level) c RSweave t 


El resultado es: 
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1. Reporte 

Intente crear una tabla desde R 




X 

y 

z 

el 

4 

22.13087 

36 

c2 

10 

17.22997 

50 

c3 

7 

17.39483 

64 

c4 

6 

20.10082 

65 

c5 

9 

15.00441 

33 

c6 

7 

22.05967 

61 


Se puede referenciar desde este comando: Cuadro 1 

\—\n 

n 

X = 7,17 

Intentar con la librería xtable que es mas configurable 



X 

y 

Z 

el 

4 

22.13 

36 

c2 

10 

17.23 

50 

c3 

7 

17.39 

64 

c4 

6 

20.10 

65 

c5 

9 

15.00 

33 

c6 

7 

22.06 

61 


Cuadro 2: tabla loca 


ce= c(12,2,3) 
print (2*ce) 

## [1] 24 4 6 
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Manualmente 

Se iniciará primero por crear tablas simples y para ellos es necesario incluir 
estos paquetes: \usepackage {multicol,multirow, booktabs } en la figura 9.11: 

- Agregar paquetes - 

\documentclass [llpt]{article} 

\usepackage [utf8]{inputenc} 

\usepackage [spanish]{babel} 

\usepackage {amsmath,array,amsfonts,latexsym,cancel,amssymb} 

%-> Listas <- 

\usepackage {textcomp,wasysym} 

\let \Square\relax 
\usepackage {bbding} 

\usepackage {enumitem} 

%-> Tablas <- 

\usepackage [xlInames,table]{xcolor} 

\usepackage [capposition=top]{floatrow} % título arriba 
\usepackage {multicol,multirow,booktabs} 

\usepackage {threeparttable} 

\usepackage {longtable} 


Por ejemplo la estructura es la siguiente 


\begin{ table } [!htb] 

\centering 

\begin {tabular }{ |c|c|c|c| } 

\hline 

& & & \\ \hline 
& & & \\ \hline 
& & & \\ \hline 

& & & \\ \hline 

& & & \\ \hline 

\end{ tabular } 

\caption {Título } 

\label { tab:my_lab } 

\end{ table } 



El entorno principal es \begin{table} [ !htb] . . . \end{table} únicamente 
sirve para referencia en la tabla de contenidos dedicado solo a tablas, para mostrar 
solo debe escribir debajo de begin{document } el comando \listoftables y 
aparecerá el índice délas tablas en orden descendente. 

Después se encuentra otro comando \centering, indicando que centrará la 
tabla. 
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el entorno \begin {tabular} { } inieia el euadro y lo importante es lo que se 
eneuentra entre las llaves: 

“{ |c| }”, éste símbolo “|” erea lineas vertieales en eolumnas. La letra “C” 
signifiea la alineaeión del eontenido y que también es en eolumnas, preste ateneión 
a la siguiente tabla 9.18: 


Cuadro 9.18: Alineación por columnas en tablas 


carácter significado 


1 

c 

r 

m{8cm} 

p{8cm} 


alineaeión haeia la izquierda(left) 

alineaeión haeia el eentro 

alineaeión haeia la dereeha(rigth) 

alinea al medio y limita el aneho de toda la eolumna a 

8em 

alinea tipo párrafo y limita el aneho de toda la eolumna 
a 8em 


Nota 1: para m y p también puede apliear otras medidas(vea la 

sección 3.1) 

Nota 2: si tiene 3 eolumnas,debes tener {ccc} tres earaeteres 
de alineaeión. 


El “\hline” erea una linea horizontal por filas. 

El sirve para separar eeldas. 

las dos barras invertidas “\\” signifiea salto de linea 
El “\caption{ }” se eseribe el título de la tabla 

El “\label{tab: }” es la etiqueta que sirve para haeer refereneia al usar 

\ref{tab:} 


Pasaremos al eoloreado de las filas y eeldas dentro de una tabla. 
Preste ateneión al siguiente ejemplo: 


\begin{ table } [!htb] 

\centering 

\rowcolors { 3 }{ DeepSkyBluel }{ Coral1 } %fila 


\begin {tabular }{| c| 

\hline 

\rowcolor { gray ! 3 0 
2 

3 

4 

\end{ tabular } 
\caption{ Título 2} 
\label { tab:my_lab2 } 


Ic| } 

& & TI 

& &\cellcolor{ green } 
& & c 

& & d 


3 y 4 


& \\ \hline 
& \\ \hline 
& \\ \hline 

& \\ \hline 
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\end{ table } 


Cuadro 2; Título 2 



También se puede pintar por eolumnas pero requiere erear nuevos eomandos 
eomo se muestra a eontinuaeión: 

Xnewcolumntype{ nombre } {>{ } alineación} 

Un eomando para pintar el texto negrita a blaneo: 

\newcoinmand{ \nonibre } [1] { \textcolor{ color }{ \textbf { #1 } } } 


% -> crear comandos < - 

Xnewcoliomntype { a } { > { \coliamncolor { Brownl } } c } 
\newcoliamntype { e } { > { \coliamncolor { DarkOrangel } } c } 

O, _ 

O 

\newcommand{\tex} [1] { \textcolor { white }{ \textbf {#!}}} 


\begin { document } 


\begin{ table } [!htb] 

\centering 

\begin {tabular }{| a|c|e| } 

\hline 

\tex{Tl} & T2 & \tex{T3} \\ \hline 

& & \\ 

& & \\ 

& & \\ \hline 

\end{ tabular } 

\caption{ Título 3} 
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\label { tab:my_lab3 } 

\end{ bable } 

\end{ document } 

Cuadro 3: Título 3 



para mas información de los colores ingresa en esta url 

http://ctan.dcc.uchile.cl/macros/latex/contrib/xcolor/xcolor.pdf 


Si te parece que no es sencillo crear tablas, en la comunidad de KT^Xhan creado 
una extensión que es compatible con Microsoft Excel, llamada “Excel2LaTeX” y 
lo puedes descargar desde la siguiente dirección: 
https://github.com/krlmlr/Excel2LaTeX/releases 

Esta extensión es compatible con todas las versiones de Excel, así que aquí 
tienes otra alternativa para crear tablas. 
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Las tablas anteriores son eon estilo, pero que tal si se requiere de tablas tipo 
reportes o tesis. Abajo te presento en la tabla 9.19 las lineas que son usadas : 

Cuadro 9.19: Lineas en tablas 


1 Lineas 

Dibuja 1 

\toprule 

linea superior 

\midrule 

linea eentral 

\cmidrule (Ir){i-j} 

pequeñas lineas 

\bottomrule 

linea final 


El eomando \cmidrule (Ir) {i-j} es: 

Ir reeorta la linea de izquierda(left) a dereeha (right) 
i-j representa las eeldas de una fila, por ejemplo 2-4 


Cuadro 9.20: Unir ñlas y eolumnas en tablas 


1 Comando 

Descripción I 

multirow{m} [vspace] {*} {texto} 
multicolumn { n } {Icr}{texto} 

unir eeldas por filas (a la dereeha) 
unir eeldas por eolumna(haeia abajo) 


Nota 1: m y n son números de eeldas. 

Nota 2: Los eoloreados de filas y eolumnas no funeionan. 


Ejemplo 1 

\begin{ table } [!htbp] 

\centering 

\begin {tabular}{ccc} 

\toprule 

\bf Estado & \bf Label & \bf Valor \\ Xmidmlo 

Mal & ing & 12 \\ 

Regular & salt & 4 \\ 

Bueno & run & 6 \\ \midrule 

\multicolumn { 2 }{ c }{\bf Total } & 22 \\ XhobLomml-o 
\end{ tabular } 

\caption { Caption } 

\label{ tab:my_lab4 } 

\end{ table } 
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Cuadro 4: Caption 


Estado 

Label 

Valor 

Mal 

ing 

12 

Regular 

salt 

4 

Bueno 

run 

6 

Total 

22 


Intente observar esta imagen 



Hombre 10 0 

Mujer 0 10 


En Q se ha usado “\niulticolumn” une tres eolumnas. 

Para el caso de es “\niultirow” por tratarse de la unión de dos filas de la 
primera colurrma. 

\begin{ table } [!htbp] 

\centering 

\begin {tabular } { cccc } 

\toprule 

\multirow{ 2 } [7] { * }{ Sexo } & 

\multicolumn{ 3 }{ c} { Educación } \\ \cmidrule { 2-4 } % 

& Primaria & Secundaria & Superior \\ \cmidrule (r ) { 1-1 } 

\cmidrule (Ir){2-2} 
\cmidrule (Ir) {3-3} 
\cmidrule (1) { 4-4 } 

Hombre & 1 & 0 & 0 \\ 

Mujer & 0 & 1 & 0 \\ \bottomrule 

\end{ tabular } 

\caption { Caption } 

\label { tab:my_lab5 } 
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\end{ table } 



Cuadro 5 

: Caption 




Educación 


Sexo 

Primaria 

Secundaria 

Superior 

Hombre 

1 

0 

0 

Mujer 

0 

1 

0 


El paquete “threeparttable” permite añadir notas debajo de la tabla: 


\begin{ table } [!htbp] 

\centering 

\begin{threeparttable} 

\begin {tabular}{ccc} 

\toprule 

\bf Estado & \bf Label & \bf Valor \\ \ 111 id 3 ml 0 

Mal & ing & 12 \\ 

Regular & salt & 4 \\ 

Bueno & run & 6 \\ \midrule 

\multicolumn { 2 }{ c }{ \bf Total } & 22 \\ XhobLonumla 
\end{ tabular } 

\begin{tablenotes} % - 

\item \textbf {Nota: } la tinta se agota 

\end{ tablenotes } % - 

\end{ threeparttable } 

\caption { Caption } 

\ label { tab:my_lab6 } 

\end{ table } 
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Cuadro 6: Caption 


Estado 

Label 

Valor 

Mal 

ing 

12 

Regular 

salt 

4 

Bueno 

run 

6 

Total 

22 


Nota: la tinta se agota 


Algunos comandos como “\resizebox” permite auto ajustar el aneho de la 
tabla, afeetando el tamaño de la letra, se vuelve importante euando tienes una 
tabla demasiada aneha: 

\begin{table} [] 

\resizebox{ \textwidth} { l } {% 

\begin {tabular}{ccc} 

\end{ tabular } 

}% 


Este otro entorno “\begin{longtable}” que es para la ereaeión de enormes 
tablas, eomo por ejemplo: 

\begin{ center } % -> centrar tabla 

\begin{ longtable } {cccc} 

\caption{ Título de tabla} \\ 

\toprule 

%========== inicia cabecera 

\multirow{ 2 } [7] { * }{ Sexo } & 

\multicolumn{ 3 }{ c} { Educación } \\ \cmidrule { 2-4 } % 

& Primaria & Secundaria & Superior \\ \cmidrule (r ) { 1-1 } 

\cmidrule ( Ir){2-2} 
\cmidrule ( Ir ) {3-3} 
\cmidrule (1) { 4-4 } 

\endhead 

%========== fin cabecera 
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\hline \multicolumn { 4 }{ r }{ \textit { Continua en la 


\endfoot 


siguiente pagina} } 


w 


%========= pie de pagina 

\bottomrule 

\endlastfoot 

\label { tab:my_tab7 } % -> referencia 

%========= fin pie de pagina 


H 

& 

2 

& 

3 

& 

4\\ 

H 

& 

1 

& 

3 

& 

4\\ 

H 

& 

7 

& 

3 

& 

7\\ 

H 

& 

1 

& 

3 

& 

4\\ 

H 

& 

2 

& 

7 

& 

6\\ 

M 

& 

4 

& 

3 

& 

4\\ 

M 

& 

2 

& 

3 

& 

1\\ 

M 

& 

1 

& 

3 

& 

4\\ 

M 

& 

2 

& 

3 

& 

4\\ 

M 

& 

2 

& 

3 

& 

1\\ 

H 

& 

6 

& 

3 

& 

6\\ 

M 

& 

4 

& 

3 

& 

4\\ 

M 

& 

2 

& 

3 

& 

1\\ 

H 

& 

1 

& 

3 

& 

6\\ 

H 

& 

2 

& 

3 

& 

4\\ 

H 

& 

2 

& 

3 

& 

1\\ 

M 

& 

6 

& 

7 

& 

1\\ 

M 

& 

4 

& 

3 

& 

4\\ 

H 

& 

2 

& 

3 

& 

6\\ 

M 

& 

2 

& 

7 

& 

4\\ 

H 

& 

6 

& 

3 

& 

1\\ 

M 

& 

2 

& 

3 

& 

4\\ 

H 

& 

2 

& 

3 

& 

4\\ 

M 

& 

2 

& 

3 

& 

4\\ 


\end{ longtable } 
\end{ center } 


H 

& 

1 

& 

3 

& 

4\\ 

H 

& 

2 

& 

3 

& 

4\\ 

H 

& 

2 

& 

3 

& 

4\\ 

M 

& 

2 

& 

1 

& 

4\\ 

H 

& 

4 

& 

3 

& 

4\\ 

M 

& 

2 

& 

3 

& 

1\\ 

H 

& 

2 

& 

3 

& 

4\\ 

M 

& 

2 

& 

3 

& 

6\\ 

H 

& 

4 

& 

3 

& 

7\\ 

M 

& 

2 

& 

1 

& 

4\\ 

M 

& 

2 

& 

3 

& 

4\\ 

M 

& 

4 

& 

3 

& 

4\\ 

M 

& 

2 

& 

7 

& 

4\\ 

M 

& 

2 

& 

3 

& 

4\\ 

M 

& 

2 

& 

3 

& 

4\\ 

M 

& 

2 

& 

3 

& 

1\\ 

M 

& 

2 

& 

1 

& 

4\\ 

M 

& 

2 

& 

3 

& 

6\\ 

M 

& 

2 

& 

3 

& 

1\\ 

M 

& 

2 

& 

3 

& 

4\\ 

M 

& 

2 

& 

3 

& 

4\\ 

M 

& 

2 

& 

3 

& 

1\\ 

M 

& 

2 

& 

3 

& 

4\\ 

M 

& 

2 

& 

3 

& 

4\\ 


la tabla \ref { tab:my_tab7 } % —> referencia 
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Cuadro 11: 

Título de tabla 



Educación 


Sexo 

Primaria 

Secundaria 

Superior 

H 

2 

3 

4 

H 

1 

3 

4 

H 

1 

3 

4 

H 

2 

3 

4 

ÍI 

7 

3 

7 

H 

1 

3 

4 

H 

2 

3 

4 

M 

2 

1 

4 

H 

2 

7 

6 

M 

4 

3 

4 

H 

4 

3 

4 

M 

2 

3 

1 

M 

2 

3 

1 

M 

1 

3 

4 

H 

2 

3 

4 

M 

2 

3 

6 

M 

2 

3 

4 

M 

2 

3 

1 

H 

4 

3 

7 

M 

2 

1 

4 

H 

6 

3 

6 

M 

4 

3 

4 

M 

2 

3 

4 

M 

4 

3 

4 


Continua 

en la siguiente pagina 


Cuadro 11: 

Título de tabla 

Educación 

Sexo 

Primaria 

Secundaria 

Superior 

M 

2 

3 

1 

H 

1 

3 

6 

M 

2 

7 

4 

M 

2 

3 

4 

H 

2 

3 

4 

H 

2 

3 

1 

M 

2 

3 

4 

M 

2 

3 

1 

M 

6 

7 

1 

M 

4 

3 

4 

M 

2 


4 

M 

2 

3 

6 

H 

2 

3 

6 

M 

2 

7 

4 

M 

2 

3 

1 

M 

2 

3 

4 

H 

6 

3 

1 

M 

2 

3 

4 

M 

2 

3 

4 

M 

2 

3 

1 

H 

2 

3 

4 

M 

2 

3 

4 

M 

2 

3 

4 

M 

2 

3 

4 

de acuerdo a la tabla 11 referenciado 


4.3.4 Figuras 

Hay librerías como ggplot2,plotrix,RGL y plotly(shiny) que generan un per¬ 
fecto diseño en R y lo mejor de todo es que se puede exportar a pdf sin perder 
calidad alguna. Dentro de estos símbolos se discutirá la dimensiones de los 
gráficos « »= 


r 

> install.packages { "ggplot2" ) 

> install.packages { "rgl" ) 

> install.packages { "plotSD" ) 

#- 

> install.packages { "plotrix" ) 


-Es recomendable tener la versión de R actualizado 
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Cuadro 9.21: Argumentos en Figuras 


Argumento función 


label 


Es la etiqueta que sirve para refereneiar en 


látex por ejemplo: 
portante “fig:” 


\ref {f ig:label } 


im- 


(ehar) Posieión de la figura: arriba(t), 


fíg.pos fiotante(h),al final(b). Por ejemplo: 



fig.pos=' !htbp' 


fíg.height 

(numérieo) Es 
ta valores de 

fig. height=4 

el alto de la figura (aeep- 
1 hasta 7).Por ejemplo: 

fíg.width 

(numérieo) Es 
ta valores de 

fig. width=7 

el aneho de la figura (aeep- 
1 hasta 7). Por ejemplo: 


(ehar) Se reduee o aumenta la imagen en 
out.width forma proporeional (de 1 hasta 100%), por 
ejemplo: out. width= ' 4 0% ' 


out. extra 


fíg.cap 


fíg.ncol 


(ehar) Se trata de agregar argumentos extras 
que son eompatibles eon látex, por ejemplo 

rotar una imagen: out. extra= ' angle=4 5 ' 


(ehar) Aquí ingrese el título de la figura, por 
ejemplo: fig. cap= ' Figura N°l..' 


(numérieo) Para usarlo neeesitas el paquete 
\usepackage { subf ig } en KlgX. Este argu¬ 
mento indiea el numero de eolumnas. 


fíg.subcap 


(ehar) Son los sub nombres a eada 
figura y si usaste el fíg.ncol, ha- 
eer que eoineidan en n-subnombres 

fig. subcap=c ('fl', 'f2' , . .n) 


Al usar fíg.ncol se debe redueir eada figura, por ejemplo si fíg.ncol=2 que erea 
dos eolumnas y n-fílas, usar out .width="0.4 8\\textwidth". También debes 
saber que todos los argumentos en << »= se escriben en una sola linea. 


\usepackage {subfig} %< 
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o_ 

o- 

«echo=FALSE,warning=FALSE,message=EALSE»= 
library(knitr) 


library(ggplot2) 
library(rgl) 
library(plotSD) 
library(plotrix) 
@ 

O,_ 

o 


Usando estos valores aleatorios eomo nuestra fuente de datos 

«echo=EALSE»= 
tb = data.frame( 

"x"= sort(rnorm(100)), 

"y"= rnorm(lOO), 

"z"= runif(n=100, min = 1, max = 10) 

) 

# - 

sp <- sample(1:4,size = 20,replace = T) 
x3 <- factor(x = sp ,levels = c(l:4), 

labels = cC'Nada Satisfecho", 

"Poco Satisfecho", 

"Satisfecho", 

"Muy Satisfecho"), ordered = T ) 

# - 

Ik <- table(x3) 

tab <- as.data.frame(Ik) 

@ 

g_ 

o- 


Por ejemplo en ggplot una gráfiea de puntos eon un ángulo de 90: 

«figural,echo=F,out.width='60%',out.extra='angle=90'»= 
graficol <- ggplot(data = tb, aes(x=y,y=x,fill=z))+ 
geom_point(size=4)+ 
theme_bw(base_size = 20) 

# 

graficol 

@ 
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N 


co co ■'ñI- c\j 




X 


Por ejemplo en plot3D(rgl) grafieo de dispersión 


«figura2,echo=F,out.width='60%'»= 

scatterSD(x=tb$x,y=tb$y,z=tb$z,cex=l.5,bty="b2",xlab="xl", 
ylab="y",zlab="z: x2",pch=l6,col.panel="# 9 9A69B") 

@ 



Usando nuevamente ggplot, un gráfieo pie y para refereneias usa 
\ref {f ig: fig3 } , no te olvides de “echo=FALSE” 
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«figS,out.width='70%',fig.cap='Gráfico Likert',fig.pos='!hbt'»= 
gráficos <- ggplot(tab,aes_(x="",y=tab$Freq,fill=factor(tab$x3)))+ 
geom_bar(width = l,stat = "identity")+ 
coord_polar("y")+ 

geom_text(aes(label=paste(round(Freq/sum(Freq)*100,1),"%")), 
position=position_stack(vjust = 0.5))+ 
theme_void(base_size = 18)+labs(fill="Indicador") 

# 

gráficos 

@ 



Inciicador 
I Nada Satisfecho 
I Poco Satisfecho 
I Satisfecho 
I Muy Satisfecho 


Gráfico Likert 


Por último plotrix con referencia \ref {fig: fig4}, al igual que el anterior 
usar echo=FALSE para omitir eodigo. 


«fig4,out.width='70%',fig.cap='Gráfico Likert',fig.pos='!hbt'»= 
color <- c("#526189","#f6f6f6","#dSd9e7","#aSacc5") 

#- 

fan.plot(x = tab$Freq,labels=as.character(tab$xS), 
col = color,ticks = SO) 

0 



Figura 2: Gráfico Likert 
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He aquí un ejemplo usando fíg.ncol para unir gráfieos en euatro espaeios y en 
euanto a fíg.subcap también debe eoineidir eon la eantidad de figuras. La librería 
ggplot2 permite almacenar el gráfico en objetos, por ende plotrix y plot3D se 
crearan manualmente 


Importante: 

Cuando se agrega argumentos en « »= trate usted de ha¬ 
cerlo en una sola linea continua, no use saltos de lineas. 


« general,echo=F,fig.show="hold", out.width="0.48\\textwidth", 
fig.cap="Todos los gráficos",fig.subcap=c("Uno","Dos", 

"Tres","Cuatro"),fig.ncol=2,fig.pos='!hbt' »= 
graficol 
gráficos 

# - 

scatterSD(x=tb$x,y=tb$y,z=tb$z,cex=l.5,bty="b2",xlab="xl", 
ylab="y",zlab="z: x2",pch=16,col.panel="#99A69B") 

# - 

fan.plot(x = tab$Freq,labels=as.character(tab$x3), 
col = color,ticks = 30) 

@ 
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• 

• 

• . 

. i 

» 

• • 

• • • •• 

% • 

V ó 

• • • 

• 

^ « 

• 

• • 

C 

. . 


• 

• 


- 2-10 1 2 
y 


(a) Uno 



Indicador 
H Nada Satisfecho 
I Poco Satisfecho 
I Safisfecho 
H Mu/Satisfecho 


(b) Dos 



I 

- 6 

I 


(c) Tres 


Satisfecho 



(d) Cuatro 


Figura 3: Todos los gráficos 

Al igual que las demás, la refereneia es \ref{fig:general} 
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( 5 . 3 . 5 } Bibliografías 

Muchos de los usuarios de Rstudio afirman que no eompila la bibliogra¬ 
fía y que para remediarlo usan otros softwares eomo es el easo de Texstu- 
dio,Texmaker,Kile,TexitEasy y TeXnieCenter . 

La bibliografía es almaeenada en un fiehero eon extensión .bib y al ser eom- 
pilado eon eualquier IDE M^Ngenera otros fieheros eomo es el easo de .bbl que 
seria de gran importaneia para el doeumento. 

Existe softwares que permiten eseribir la bibliografía, linkografia y otros de 
manera seneilla. Esta el Jabref(350MB) que se eseribe de manera manual y el 
Zotero(85MB) que es más interaetivo ya que posee una extensión para navegadores 
web eomo google ehrome y mozilla. 


Para deseargar zotero ingrese a su página web https://www.zotero.org/ e 
instale, a eontinuaeión en su navegador web (mozilla o ehrome) instale la extensión. 
Aclaración: primero ejecute la aplicación zotero y después la extensión 
(ambos son dependientes). 


Figura 9.12: La extensión y conexión con zotero 
(a) Extensión (b) Software 
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Al hacer clic en el icono de la extensión zotero en el navegador aparecerá como 
se muestra en la figura 9.1 la y al mismo tiempo también en el software figura 
9.1 Ib. No todas las páginas web permiten recopilar información zotero y es ahí 
donde se tiene que hacerlo manualmente 


Figura 9.13: Creando Nueva referencia desde el software Zotero 


(a) Selección 


lools Help 

xi • ^-1 

Book 

Book Sectíon 
Document 
Journal Article 
Magazine Article 
Linkto File,.. 

Store Copy of File... 
More 


Book 

BookSection 

Case 

Conference Paper 
Dictionary Entry 
Document 
E-mail 

Encyclopedia Article 
Film 

Forum Post 
Hearing 

Insta nt Message 
Interview 
Journal Article 
Letter 

Magazine Article 

Manuscrípt 

Map 

Newspaper Article 
Patent 
Podcast 
Presentation 


(b) Agregar 



Una vez que tengamos todas las referencias a nuestra disposición, se procederá 
a exportarlo a un fichero con un formato BibLatex 
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Figura 9.14: Exportar desde Zotera 



Cuando hace clic derecho en la carpeta o cualquier referencia, aparecerá un 
submenu similar al cuadro rojo que esta a la izquierda y en ella has clic en 
Export... para que nuevamente aparezca una pequeña ventana donde debes 
elegir siempre la codificación en “UTF-8(Unicode)”. 

Una vez hecho lo anterior, clic en Ok para guarda el fichero. Intente abrir ese 
fichero “bibliografia.bib” con notepad++ o cualquier otro editor de texto para editar 
lo siguiente 


_ bibliografia.bib _ 

@book{latex_2004_companion, 

tifie = {The {LaTeX} Companion}, 
isbn = {978-0-13-338764-3}, 

abstract = {This is the digial versión of the printed ...}, 
pagetotal = {1121}, 

publisher = {Addison-Wesley Professional}, 

author = {Mittelbach, Frank and Goossens, Michel and Bra...}, 
date = {2004-04-23}, 

Tangid = {english}, 

note = {Google-Books-{ID}: {iX}9MAQAAQBAJ}, 

keywords = {Computers / Electronic Publishing} 

} 
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Tiene que editar latex_2004_companion por otro mas simple, esta etiqueta es 
muy importante porque eon ese nombre vas a usar en 

\citep{latex_2004_companion} (se ve muy enorme). Usaré uno mas eorto 

látex.2004 


Incluir paquete 


Ineluimos este paquete llamado “biblatex” en el doeumento aetual, es preferi¬ 
ble que se encuentre entre los últimos paquetes. 


\documentclass [llpt]{article} 
\usepackage [utf8]{inputenc} 

\usepackage [spanish]{babel} 


\usepackage{csquotes} %-<—<- 

-incluir 

\usepackage [style=apa]{biblatex} %<- 

%- 

-incluir 


De forma predeterminada es el inglés y se neeesita modifiear el lenguaje al 
español 


\DeclareLanguageMapping{spanish}{spanish-apa} 


Aquí es donde tienes que eoloear la direeeión del fichero bibliografia.bib que 
habías exportado de zotero. 

\addbibresource {bibliografía.bib} 

Intentemos haeer una refereneia sin modifiear algún elemento: 

\begin {document} 

Según \parencite [326-329]{látex.2004} recomienda ... 

\printbibliography %<-importante 

\end{document} 


Según (Mittelbach y col., 2004, pp. 326-329) recomienda 
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Como se observa se usa estas palabras “y col , pp”. Si deseas haeer eambios 
en ella entonees presta ateneión a lo siguiente. 

%-modificar- 

\setcounter {smartand}{0} 

\DefineBibliographyStrings{spanish}{% 
andothers = {et al. ,}, 
pages = {pag. }, 

} 


\begin {document} 


Según \parencite [326-329]{látex.2004} recomienda ... 


\printbibliography %<-importante 

\end{document} 


I Según (Mittelbach et al., 2004, pag. 326-329) recomienda 
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Aquí la estructura general del fichero documento.Rnw 


\dociamentclass [a4paper, 12pt] {article} 

\usepackage [utf8] {inputenc} 

\usepackage [spanish] {babel} 

\usepackage { graphicx,wrapfig } 

\usepackage {microtype,float } 

\usepackage [xllnames,bable] {xcolor } 

\usepackage { colortbl,makecell } 

%-> entorno matemático 

\usepackage { amsmath,amssymb,array,amsfonts,latexsym,amssymb } 
\usepackage { cancel } % tachado de expresiones 
\usepackage { textcomp,wasysym,longtable } 

\let\Square\relax % importante 
\usepackage {bbding } 

\usepackage {pdfIscape,tabú } 

%-> entorno tablas 

\usepackage { threeparttable,threeparttablex } 

\usepackage {multicol,multirow,booktabs } 

\usepackage [capposition=top] { floatrow} % título arriba 
\usepackage {multicol, multirow, booktabs } 

\usepackage { threeparttable } 

\usepackage { longtable } 

o,__ 

o 

\usepackage { csquotes } 

\usepackage [style=apa] {biblatex} 

\DeclareLanguageMapping{ spanish }{ spanish-apa } 

\addbibresource {bibliografía.bib } %< - dirección fichero bi 

% - modificar - 

\setcounter { smartand} { 0 } 

\DefineBibliographyStrings { spanish }{ % 
andothers = {et al. ,}, 
pages = {pag. } , 

} 

% -> vínculos 

\usepackage { hyperref } 

% -> crear comandos < - 

Xnewcolumntype { a }{ > { \columncolor { Brownl }} c } 

Xnewcolumntype { e }{ > { \columncolor { DarkOrangel }} c } 


207 


















208 


CAPITULO 9. CREANDO REPORTES 



\newcoinmand { \tex} [ 1 ] { \textcolor { white } { \textbf { #1 } } } 



o_ 

O- 

\title { Titulo del articulo} 

\author{el autor} 

\date{}-§' fecha formato: dia/mes/año 

o _ 

O- 

% —> R librerías 

<<echo=F,warning=FALSE,message=FALSE>>= 
library(knitr) 
library(kableExtra) 
library(xtable) 

options(xtable.comment = EALSE) 
library (ggplot2) 
library(plotrix) 

@ 


\begin { document } 

\frontmatter 

\maketitle 

\tableofcontents 

\mainmatter 

%======================= (¿Q aquí inicia 

\section{ Hl } 

\subsection { H2 } 

\subsubsection{ H3 } 


%====================== aquí termina 

\begin { appendix } 

\listof figures 
\listoft ables 
\end{ appendix } 

\nocite{*} % imprime todo el contenido de .bib 
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\printbibliography [ 

heading=bibintoc, 
title={Bibliografía} 
] 

\end{ document } 
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